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SEQ 0001 


TABIF OF CONTENTS 


REQUIREMENTS 

RESTRICTIONS 

CAUTIONS 

ASSUMPTIONS 

OPTIONS / CONTROLS 

LOADING 

STARTING / RESTARTING 

TEST DESCRIPTION 
START-UP 
TEST SELECTOR 
LOGIC TEST 
PORT LOOP-BACK 
HOST=REMOTE EXERCISE 
MAINTENANCE ROUTINE 
END OF PASS 


ERRORS 


SECTION 


oO 


NOW EWM 


SEQ 0002 


GENERAL 


THIS PROGRAM IS TO BE USED TO TEST THE COMPACT MICRO REMOTE 
(CMR=11) HOST HARDWARE AND TO BASICALLY CHECK COMMUNICATIONS 
Bh yaa THE HOST HARDWARE ON THE UNIBUS AND THE REMOTE HARD= 
W . 


THE PROGRAM IS DIVIDED INTO THREE PARTS, PLUS A FOURTH MULTI- 
PURPOSE *MAINTENANCE'’ ROUTINE: 


- HOST LOGIC TEST 
- PORT LOOP=BACK TEST 
- CMR-11 EXERCISE ROUTINE 
- ‘MAINTENANCE"® ROUTINE 
THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE 
COMMUNICATION DISABLED OR DISCONNECTED AS IS THE PORT LOOP- 
BACK TEST. THE CMR-11 EXERCISE ROUTINE, HOWEVER, CAN BE 


RUN WITHOUT CHANGING ANY OF THE HARDWARE FROM ITS ‘'INSTALLED'' 
se Sat FOR THE DETAILS OF EACH TEST, SEE THE ACOMPANYING 


REQUIREMENTS 


HARDWARE : 
PDP-11 OR LSI-11 
CMR-11 HOST MODULE ON THE UNIBUS (Q-8US) 
CONSOLE TERMINAL ON LINE. 

OTHER: 


THE PROCESSOR MAINDECS AND CONSOLE TERMINAL TESTS 
MUST HAVE BEEN RUN SUCCESSFULLY BEFORE RUNNING 
THIS PROGRAM. 


SEQ 0003 


5.2 


RESTRICT 


(NONE ) 
CAUTIONS 


ASSUMPT I 


IONS 


IT IS NOT ADVISABLE TO RUN THE LOGIC TEST OR THE 
PORT LOOP=BACK TEST ON AN *‘ON=LINE’* SYSTEM WITH 
THE REMOTES ATTACHED AS ‘ON-LINE’ DEVICES MAY BE 
AFFECTED. THE CMR=-11 EXERCISE ROUTINE, HOWEVER, 
MAY BE RUN UNDER THESE CONDITIONS. 


COMMUNICATION PORTIONS OF THESE TESTS FROM HOST 
TO REMOTE AND REMOTE TO HOST MAY TAKE A CONSIDER- 
ABLE LENGTH OF TIME IF THE PORT BAUD RATES ARE SET 
LOW (300 BAUD). 


CAUTION MUST BE EXERCISED WHEN USING THE ‘MAINT- 
ENANCE** ROUTINE SO THAT FUNCTIONS ARE NOT STARTED 
WHICH WILL COMPROMISE ANY ‘ON=LINE'' SITUATIONS. 


ONS 


IN THE 


POR| LOOP=BACK TEST, IT IS ASSUMED THAT WHEN tas 


OPERATOR TYPES <CR> INDICATING ‘READY'', HE HAS L 


LOOPED A 
PORT FROM OUTPUT TO INPUT PHYSICALLY, AND HAS SELECTED THAT PORT 


TO BE TESTED. 


IT IS 


ASSUMED, IN THE CMR-11 EXERCISE ROUTINE, THAT THERE 


ARE REMOTES ATTACHED (AT LEAST ONE) AND THAT THEY ARE 
"'REGULAR’’. IF THIS IS NOT THE CASE, THE ROUTINE WILL 


BE IDLE. 
OPT IONS 


/ CONTROLS 





SWITCHABLE OPTIONS (COMBINABLE) 


SWR = ME ANS 

100000 DON'T HALT AFTER ERRORS 
040000 DON'T PRINT ERRORS 
020000 LOOP ON ERRONEOUS ROUTINE 


004000 
002000 DON'T PRINT END OF PASS 


SEQ 0004 


CONTROL CHARACTERS 


CNTRL=C RESTART TEST SELECTOR 

CNTRL=T te oe oe 

CNTRL=S SHOW *SWR'* OPTIONS 

CNTRL=P PROCEED 

CNTRL=O ENTER ‘MAINTENANCE'' DEBUG ROUTINE 
CNTRL=F SHOW CONSOLE FILL COUNT 


PROCESSORS 


ON PROCESSORS WITH NO PHYSICAL SWITCH REGISTER 
THE OPTIONS CAN BE EXAMINED OR CHANGED BY me USE OF 
"‘CNTRL=S'" AND AT THE TIME OF AN ERROR HALT. THE 
PRINTOUT: SWR = XXXXXX : WILL SHOW THE OPTIONS 
AND THE OPERATOR CAN LEAVE THEM (<CR>) OR CHANGE 
THEM (YYYYYY<CR>), THEN PROCEED (CNTRL=P) 


THE PROGRAM IS SUPPLIED IN .ABS FORMAT AND IS LOADED 
BY MEANS OF THE ABSOLUTE LOADER OR THE ‘LOAD'’ COMMAND OF 
THE DIAGNOSTIC MONITOR XXDP. 


STARTING / RESTARTING 


STARTING ADDRESS : 


RESTARTING ADDRESS : 


TEST DESCRIPTION 


START UP: 


INTERFACE ADDRESS: TYPE <CR> IF IT 164000 
TYPE XXXXXM<CR> IF ITS XXXXXX 


INTERFACE VECTOR: TYPE <CR> IF ITS 170 
TYPE XXX<CR> IF ITS XXX 


INTERFACE PRIORITY: TYPE <CR> IF ITS 4 
TYPE K<CR> IF ITS x 


IF THE PROCESSOR HAS NO SWITCH REGISTER, THE SWITCH 
OPTIONS WILl NOW BE SHOWN AND MAY BE CHANGED (AS IN #6). 





9.2 TEST SELECTOR: 
SELECT TEST (4 = HELP): 
(HELP MESSAGE READS: ) 
SELECT ONE OF THE FOLLOWING: 


CR OR 1 = LOGIC TEST 

2 = PORT LOOP-BACK TEST 

3 = CMR-11 EXERCISE 

4 = THIS HELP INFO 
CNTRL=C = TEST SELECT 
CNTRL=S = SWITCH OPTION SELECT 
CNTRL=F = CONSOLE FILL COUNT SELECT 
CNTRL-O = DEBUG ROUTINE WHICH ALLOWS 


LOADING SCPD AND STARTING 
wot AND EXAMINING THE 


RES 
CNTRL=P = PROCEED FROM SW MONITOR 


9.3 LOGIC TEST: 
THE FOLLOWING TESTS ARE PERFORMED: 


TEST OF THE PWR-UP SEQUENCE 
TEST THE SCPD ADDRESS REG. 


t(rernrterest 
" 
m 
“nn 
“ 
— 
2 
“4 
m 
é 
4 


NIT. 
CHECK SCPD ACCESS KEYS 
SIMPLE FUNCTIONS TEST 


9.4 PORT LOOPBACK TEST 


THE PORT LOOP=BACK TEST USES THE PORT 
LOOP MAINTENANCE FUNCTION OF THE HOST FIRMWARE. 
THE TEST WiLL RUN WITH ONE PORT OR WITH ALL PORTS 
SELECTED: 
PORT # (<CR> = ALL): 
THE OPERATOR MUST ENSURE THAT THE PORT(S) BEING 
TESTED IS(ARE) LOOPED FROM XMTR TO RCVR, 


9.5 CMR=11 HOST-REMOTE EXERCISE 


THIS ROUTINE STARTS A BACKGROUND SCAN AND WAITS 
FOR THE END OF A SCAN OF ALL app dle 3 ON ALL PORTS 
("THRU"), DURING THIS WAIT, IF ANY ALARMS OCCUR 
Hy A ON THE CONSOLE WILL RING (4 TIMES PER 


SEQ 0006 


AT THE COMPLETION OF THE SCAN, THE PROGRAM sHows ” 
THE ae. ve AS } coms SEQ 0007 
PORT # 1 100 101 102 = 103 


ETC. 
SHOWING EACH PORT ONLY IF THERE ARE REMOTES 
ON THE PORT WHICH ARE ‘REGULAR’ ze 
FOLLOWING THIS PRINTOUT. THE 'DIAGNOSTIC'* FUNCTION 
IS ATTEMPTED ON EACH REMOTE P 
DURING THE REMAINDER OF THE REXERCISE, ALL REMOTES 
WILL BE EXERCISED WITH THE ‘DIAGNOSTIC’ FUNCTION 
AND ALL ALARMS WILL BE INDICATED (BY BELLS). AND 
ANY CHANGES OF REMOTE STATUS WILL BE REPORTED: 
*s* REMOTE STATUS CHANGE *#** 


REMOTE #X 
F REGULAR 
REMOTE STATUS NOW=- IRREGULAR 
, TTT? 
9.6 “MAINTENANCE'’ DEBUG ROUTINE 
at ett gears BE EXERCISED WHEN USING THIS ROUTINE 
THIS ROUTINE OPERATES LIKE A SIMPLE ‘ODT''. HOWEVER, 


IT ALLOWS EXAMINING AND/OR DEPOSITING ONLY IN THE 
CMR=11 SCRATCHPAD MEMORY. FOLLOWING ARE THE OPERATING 


CHARACTERS: 

XXXX/ (SLASH) OPEN AND DISPLAY CONTENTS 
OF THE SCPD ADDR ''XXXx'' 

<CR> (RE TURN) CLOSE THE CURRENT ADDRESS. 

<LF> (LINE FEED) CLOSE THE CURRENT ADDR. AND 
OPEN THE NEXT SEQUENTIAL ONE. 

XXXX<CR> DEPOSIT *XXXX"" IN THE oe 
OPEN ADDRESS AND CLOSE IT. 

XXXX<LF > DEPOSIT **KXXX'' IN THE CURRENTLY 
OPEN ADDRESS, CLOSE IT AND 
OPEN THE NEXT SEQUENTIAL ONE. 

G SET *‘STFUN'' OR ‘MAIN’' TO START 
THE CURRENTLY LOADED FUNCTION 

P PROCEED OUT OF THE ‘DEBUG’ 
ROUTINE AND RETURN TO THE SPOT 
WHICH WAS LEFT WHEN CNTRL-O 
WAS TYPED. (ANY PROMPTS WILL 
BE RE-ASKED). 

(CSR ADDR) / ALLOWS EXAMINATION OF THE HOST 


CSR REGISTER ONLY. NO OTHER 
UNIBUS enim? MAY BE EXAMINED 
IN THIS FASHION 


9.7 END OF PASS 


AT_THE END OF EACH PASS OF ANY OF THE THREE TES 
AN ‘END PASS'' MESSAGE IS PRINTED UNLESS INHIBITED 
SWITCH OPTION BIT 1 

THE PRINTOUT IS IN THE FOLLOWING FORM: 


END PASS # K ERR. CNT. = Y 
WHERE : 


X = THE PASS NUMBER IN DECIMAL 
Y = THE TOTAL NUMBER OF ERRORS SINCE START (DECIMAL). 


IF THE NUMBER OF ERRORS BECOMES LARGER THAN 64K, 
THEN *‘** OVERFLOW **'' WILL BE PRINTED INSTEAD. 

IF SWITCH OPTION BIT 11 = 0, THIS MESSAGE WILL BE 
PRINTED ONLY AFTER 10 (OCTAL) PASSES THROUGH WHICHEVER 
TEST IS RUNNING. OTHERWISE, IT IS PRINTED EVERY PASS. 


Tos 
BY 


ERRORS 


FOR THE MOST PART, ERROR PRINTOUTS ARE SELF -EXPLANATORY. 
THE ERROR NUMBERS AND ADDRESSES CAN BE USED FOR REFERENCE TO 
THE PROGRAM LISTING FOR FURTHER DETAILS. 
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CZCMJAO_CMR=11 HOST EXERCISER 
CZCMJA.P11 O6-MAR=80 15:13 SEQ 0009 
1 .TITLE CZCMJAO CMR=11 HOST EXERCISER 
2 -SBTTL SYMBOLIC DEFINITIONS 
3 "NLIST TTM 
4 “LIST ME 
§ 3 INTERNAL DEFINITIONS: 
8 177776 PS = 177776 
9 177570 HWSWR = 177570 
: ? 026346 SSWR = SWREG 
i sREGISTER DEFINITIONS: 
14 000000 RO 2 20 
15 000001 RI = “1 
16 000002 R2 2 %2 
17 000003 R3 : %3 
18 000004 RG = %4 
19 000005 R5 : %5 
20 000006 SP : %6 
21 000007 PC : %7 
Z ;BUS REQUEST DEFINITIONS: 
25 000340 P7 - 340 
26 000300 P6 : 300 
27 000240 P5 - 240 
28 000200 PG : 200 
29 000140 P3 : 140 
30 000100 p2 : 100 
31 0 PI = 40 
32 PO 2 0 
33 
% ;BIT DEFINITIONS: 
36 100000 B15 = 100000 
37 040000 B14 = 40000 
020000 B13. = 20000 
39 010000 Bl2 = 10000 
40 000 Bil = 4000 
41 002000 B10 = 2000 
42 001000 B09 sg 1000 
43 000400 B08 sg 400 
44 000200 B07 = 200 
é 000100 B06ts«i 100 
000040 BOS = 40 
47 000020 B06 i= 20 
48 000010 B03 tsi 10 
49 000004 B02s= 4 
50 000002 B01 = 2 
51 000001 B00 = 1 
52 002000 ISP = BEGIN INITIAL STACK POINTER 
54 
55 
56 .SBTTL MACRO DEFINITIONS 


K 1 
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~A.P11 O6-MAR-80 15:13 MACRO DEFINITIONS SEQ 0010 
57 
58 
59 000001 N = 1 s INITIAL ERROR NUMBER 
Ms ;ERROR MACROS 
62 «MACRO ERROR P,MSG 
63 pteneeee ERROR P tanneee 
+, BIT #B14,aSR 
65 BNE -+20 
MOV #MSG,RO 
67 MOV #P ,ERRNUM 
68 JSR PC,ERR 
69 N = N+1 
a . ENDM 
72 -MACRO DATERR P,MSG 
73 ; peeeneee ERROR P aaaneee 
7%4 _ . BIT #B14,aSR 
75 , ; BNE - +20 
76 MOV #MSG,RO 
77 ne MOV #P ,ERRNUM 
78 “at JSR PC,DERR 
79 N = N+1 
80 -ENDM 
81 
82 «MACRO HLT 
83 JSR PC, SWHLT 
Be . ENDM 
4] sPRINT MACRO (MSG ADDR IN RO) 
88 «MACRO PNITM A 
89 MOV #A,RO sPRINT MESSAGE 
90 JSR PC, TYPOUT sPOINTED TO BY A 
4 -ENDM 
4 ~ ;SCOPE LOOP MACRO 
95 «MACRO SCOPE x 
96 JSR R5,SCPRIN 
97 x 
Ms -ENDM 
1 ; INTER-PDP-11 COMPATABLE MOVE TO PS 
102 «MACRO MITPS SRC, ?7LLL 
103 MOV SRC ,-(SP) 
104 MOV #LLt, (SP) 
105 RT] 
106 LLL: 


.ENDM 


sREGISTER SAVE AND RESTORE MACROS 
«MACRO REGSAV 


CZCMJAO_CMR-11 HOST EXERC 
06-MAR-80 15: 


CZCMJA.P11 


— 
AKANE SRBVRARWV LS SONAR 


a tk ad nd 8 ot a ed ot 
SUS 


Ww 
oO 


140 


150 


MMII) 


aa aad cd ced ad ec id ed a ed 
Sveyu~r 
WONOU EWR = 


161 


00 
000102 
000104 
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R= MACY11 30A(1052) 10-MAR-80 14:09 PAGE 3 
3 MACRO DEFINITIONS 


JSR R5 ,REGSAV 
- ENDM 


ISE 
; 


-MACRO REGRES 
JSR R5 ,REGRES 


-SBTTL_ TRAP CATCHERS 


~ENABLE ABS 
- WORD +2 
-WORD QO 
«WORD DVATSi ; TRAP BAD DEVICE ADDRESSES 
-WORD 340 
-REPT 126 
-WORD +2 
-WORD 0 
-WORD +2 
-WORD 0 
«WORD =. +2 
-WORD 0 

- WORD +2 
-WORD 0 
«WORD .+2 
-WORD 0 
-WORD = .+#2 
-WORD 0 
«WORD .+2 
-WORD 0 
-WORD +2 
-WORD 0 
-WORD +2 
«WORD 0 
«WORD .+2 
-WORD 0 
«WORD +2 
-WORD 0 
-WORD .+2 
-WORD 0 
«WORD +2 
-WORD 0 
-WORD +2 
-WORD 0 
-WORD = .+2 
-WORD 0 

- WORD +2 
«WORD 0 
-WORD +2 
-WORD QO 

- WORD +2 
-WORD 0 
-WORD +2 
-WORD 0 
WORD +2 


: 


SEQ 0011 


m 1 
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000126 
000000 
000132 
000136 


Oo 
Ye) 


or Or OF OF Or OF OF OF OF Ove 


or oO 


or Oo Or 


70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
8&4 
85 
86 
87 
88 
89 
90 
91 
92 
93 
O84 
95 
96 
97 
98 
99 


Satecrascs 
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4 oe 
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CZCMJAO CMR=11 HOST EXER 
CZCMJA.P11 06-MAR=80 15:13 TRAP CATCHERS 
225 000304 000306 . WORD 
226 000 . WORD 
227 000310 000312 . WORD 
228 000312 000000 - WORD 
229 000314 000316 - WORD 
230 000316 000000 . WORD 
231 000 000322 « WORD 
232 000322 - WORD 
233 000324 000376 - WORD 
234 000326 . WORD 
235 000330 000332 . WORD 
236 000332 . WORD 
237 0003 000336 . WORD 
238 000336 - WORD 
239 000340 000342 . WORD 
240 000342 - WORD 
241 000344 000346 - WORD 
242 000 . WORD 
243 000350 000352 - WORD 
244 000352 . WORD 
245 000354 000356 - WORD 
246 000356 . WORD 
247 000 000362 . WORD 
248 000362 . WORD 
249 000 000366 . WORD 
250 000 . WORD 
251 000370 000372 . WORD 
252 000372 . WORD 
253 000374 000376 . WORD 
254 000376 . WORD 
255 000400 000402 - WORD 
256 000402 . WORD 
257 000404 000406 . WORD 
258 000406 - WORD 
259 000410 000412 . WORD 
260 000412 . WORD 
261 000414 000416 - WORD 
262 000416 - WORD 
263 000420 000422 . WORD 
264 000422 . WORD 
265 000424 000426 - WORD 
266 000426 . WORD 
267 000430 000432 . WORD 
268 000432 . WORD 
269 000434 000436 - WORD 
270 000436 - WORD 
271 000440 000442 . WORD 
272 000442 . WORD 
273 000444 000446 . WORD 
274 000446 . WORD 
275 000450 000452 - WORD 
276 000452 - WORD 
277 000454 000456 - WORD 
278 000456 . WORD 
279 000460 000462 . WORD 
280 000462 . WORD 


or Oe 


Or 


or Or 


or Or Oe 


o- Oo: Os 


Oo OF OF Or OF CO? CO CO? CO CO? CO OF 


or Or OF OF O- 


+2 


+2 


SEQ 0013 
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MJA.P11 0 15: SEQ 0014 
281 000464 000466 .WORD _, #2 
282 000466 000000 “wORD 0 
283 70 000472 ‘WORD =, #2 
284 000472 000000 "WORD 0 
285 000474 000476 ‘WORD #2 
286 000476 000000 “WORD O 
287 000500 000502 “WORD =, #2 
288 000502 000000 “WORD 0 
289 000 000506 ‘WORD =, #2 
290 000506 000000 “WORD 0 
291 000510 000512 ‘WORD, #2 
03 000512 000000 “wORD 0 
293 000514 000516 SWORD, #2 
294 000516 000000 "wORD 0 
295 20 000522 ‘WORD #2 
29% 000522 “WwORD 0 
297 000524 000526 “WORD =, #2 
298 7woRD «(0 
299 000530 000532 “WORD #2 
300 000532 000000 WORD 0 
301 000534 000536 +2 
302 000536 000000 0 
303 000540 000542 .+2 
304 000542 000000 6 
305 000546 +2 
306 000 000000 0 
307 000550 000552 +2 
308 000552 000000 0 
309 000554 600556 +2 
310 000556 000000 0 
311 000562 +2 
31¢ 000562 000000 0 
313 000564 000566 ° 
315 000570 600 Nhe: +2 
316 000572 000000 6 
31” 000574 900576 3° 
36 000000 “ 
000606 +2 


SSSSSSS99 9558555 8sssssssegggggg9999) 


oo oO oOo oO oO oO Oo CO 


SAREE SS CRON 





CSSSESRERERESS 


CZCMJAO 
C2CMJA.P1 -MAR-8 
337 000644 000646 
338 000646 000000 
339 000650 000652 
340 000652 000000 
341 000654 000656 
342 000656 000000 
343 000660 000662 
344 000662 000000 
345 000664 000666 
346 000666 000000 
347 000670 000672 
348 000672 000000 
349 000674 000676 
350 000676 000000 
351 000700 000702 
352 000702 000000 
353 000704 000706 
354 000706 000000 
355 000710 000712 
356 000712 000000 
357 000714 000716 
358 000716 000000 
359 000720 000722 
360 000722 000000 
361 000724 000726 
$62 900726 000000 
363 000730 000732 
%4 000732 000000 
365 000734 000736 
366 000736 000000 
367 000740 000742 
368 000742 000000 
369 000744 000746 
370 000746 000000 
371 000750 000752 
37@ 000752 000000 
ie Bes 
375 000760 0007 
376 0076? 000000 
377 900764 000766 
000770 O00772 
000772 000000 
000774 000776 
000776 000000 


—s 


Sss 
= 
o 
~ 


1576 
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.WORD  _,4#2 
"WORD 0 
«WORD +2 
"WORD 0 
"WORD, #2 
“WORD 0 
“WORD =, #2 
“WORD 0 
“WORD =, #2 
“WORD 0 
‘WORD , #2 
"WORD 0 
"WORD #2 
"wORD 0 
“WORD, #2 
"WORD 0 
“WORD =, #2 
“wORD 0 
“WORD _, #2 
"WORD 0 
"WORD =, #2 
“WORD 0 
‘WORD 42 
"wORD 0 
“WORD #2 
‘worD 0 
WORD +2 
7wORD «(0 
“WORD, #2 
"wORD 0 
“WORD #2 
7woRD (0 
-WORD ,+42 
-WORD QO 

~ WORD +2 
"word 0 
“WORD =, #2 
“word 6 
[WORD =, #2 
“woRD «(0 
“WORD #2 
;wordD 0 

~ WORD o2 
‘word «(6 
"WORD, #2 
"wor? «=O 
~SBTTL SYMBOLIC LISTING 
e = 
jmp BEGIN 
MOV #iSP,sP 
RESET 

Pp RESTRI 


. = 20M 


SEQ 0015 


CZCMJAO CMR=11 HOST EXERCISER 
C2C 213 


MJA.P11 06-MAR-80 
393 

394 002000 012706 
395 002004 000005 
396 002006 

397 2006 012746 
398 002012 012746 
399 002016 2 
400 002020 

401 002020 005067 
“02 02024 105067 
403 002030 012737 
404 002036 pier ee 
405 002044 005737 
406 002050 005067 
407 002054 012737 
408 002062 012737 
409 002070 012767 
410 002076 005777 
411 002102 

412 002102 012700 
413 002106 004767 
414 002112 

415 002112 012700 
416 002116 767 
417 o051%5 016767 
418 0021 012767 
419 002136 767 
oy 002142 016767 
rs 002150 026727 
423 002156 105006 
424 002160 

rt 002160 012700 
4 805168 004767 
427 1 000167 
428 174 peter 
23 06 012737 
431 Qos21¢ 008037 
$3 002220 

43 oosSSe 12700 
os $3 76 
435 2 16767 
os 3% 012767 
43 767 
438 16767 
439 7? 
440 1 
441 

beta 12 

as 

4G 000167 
tag 12 
<9 76 
448 1 16767 


1 


002000 


MACY11 30A(1052) 
SYMBOL IC 


000004 
000006 


000004 
000006 
024246 


015216 
024160 
024216 
164000 


015110 
0246052 


000776 


015026 


BEGIN: 


64$: 


PROMT : 


PRMT1: 


PRMT2: 


PRMT3: 


L 


BEZ 353843258 20888208 
22% 858858258 24388Cu 


483% 


BydzysIE Ga gssys zz 


D2 
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ISTING 


#1SP,SP 


#P7 
#P7,=(SP) 
#64$,-(SP) 


DEVER 
LSIFLG 
AMLSTST aes 


#P? 
wr ane 
SWRFLG 


INITIALIZE THE STACK 
;CLEAR THE WORLD 
STOP INTERRUPTS 


sPREPARE TO CHECK FOR LSI=11 


CHECK FOR PSW @SET FLAG 
SET UP TO TRAP IF NO SWR. 


SET UP TO CHECK IF ANY HD SwR 
SEE IF IT'S THERE 


;PRINT MESSAGE 

sPOINTED TO BY TSTHDR 

;ASK FOR 1ST UNIBUS ADDR OF CMR-11 
;PRINT MESSAGE 

sPOINTED TO BY FRAD 

; LOAD 


GET KBD T 
[REPLACE CMR-11 BASE ADDR 
:1S IT WITHIN LIMIT? 
:VES, TEST IT 

[NO, ERROR @ ASK AGAIN 
SPRINT MESSAGE 
[POINTED TO BY AGAIN 


ge 


7 
; 
as 5 
: 


Pietra eae 


e33y 
zz. 


g 
z 
: 


SEQ 0016 


fea ae a 
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012767 
004767 
096787 

003406 


005067 
01 378 
012737 
012737 


012746 
012746 
000002 


105067 


3 
00230 
14 
15 


83850 


ae 
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0c. 70 MOV #PRMT3,PCONT 
JSR PC, INPKB 
000007 CMP KBBUF ,#7 
BLE PRMT4 
PNTM AGAIN 
MOV #AGAIN,RO 
JSR PC, TYPOUT 
JMP PRMT3 
000004 PRMT4: CMP KBBUF , #4 
BGE PRMTS 
PNTM AGAIN 
MOV #AGAIN,RO 
JSR PC, TYPOUT 
JMP PRMT3 
PRMTS: ASL KBBUF 
ASL KBBUF 
ASL KBBUF 
ASL KBBUF 
ASL KARUF 
023670 MOV KBBUF 


-PRIO 
JSR PC ,DEVGEN 
CLEAR OUT ALL TABLES FOR START-UP 


CLR EXTBL1 
CLR EXTBL 
CLR EXTBL 


C 
000006 RESTRT: MOV #HDER ,aa4 


1 MOV #CLKINT,@#100 
§00199 MOV #340, a#i02 
MTPS ? 
MOV #P7,-(SP) 
MOV #64$,-(SP) 
RTI] 
64$: 
TST SWRFLG 
BEQ 1$ 
JSR PC, SWOMP 
1$: JMP BCONT 
:LINE it OCk SERVICE ROUTINE. 
; SIMPLY RETURN. CLOCK NOT USED. 
CLKINT: RTI 


-SBTTL SUPERVISOR DISPATCH 


BCONT: RESET 
CLRB SAFE 
CLRB DBFLG 
PNTM TSTSEL 


LOAD RETURN ADDRESS 


:GET KBD INPUT 


iS IT WITHIN bee er 
;LOW ENOUGH, 
ERROR AND ASK AGAIN 


:NO, 
:PRINT MESSAGE 
:POINTED TO BY AGAIN 


; HIGH AT tes 


:YES, 


:NO, ERROR & ASK AGAIN 


PRINT MESSAGE 
;POINTED TO BY AGAIN 


: SHIFT IT pare we 
;LOAD NEW 


PRIORITY 
[GENERATE CMR=11 ADDRESSES 


sRESET TRAPS 
sSET CLOCK VECTOR 
sRAISE C.P. PRIORITY 


3 NON~SWR-PROCE SSOR? 


:VES, DUMP SWITCH LOCATION 


;RETURN FROM CLOCK INTERRUPT 


ALWAYS DO RESET UPON ARRIV 
CLEAR ‘FILL CNT 

7CLEAR ‘DE 
SPRINT “SELECT 


‘Ff 
T 


A. 


SAFETY r LAG’ 
LAG 
EST (<CR>=HELP)** 


SEQ 0017 


.¢ 
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505 sok. 1F RO ;PRINT MESSAGE 
506 004767 PC,T YPOUT ;POINTED TO BY TSTSEL 
307 000001 014562 #1 ,KBBUF DEFAULT LOGIC TEST 
002564 | 023524 #BCONT ,PCONT LOAD RETURN ADDRESS 
PC, INPKB :GET KBD INPUT 


014540 000001 CHECK IT FOR ‘I"’ 
:1F CLR, re on eae TESTS 
014530 000002 KBBUF ,#2 SCHECK IT FOR ‘2° 


006016 J "2"" DO PORT, LOOP TEST 
014514 000003 KBBUF ,#3 check OR '3"' 
BNE i1F NOT "GIVE. HELP 
Z1F '3'DO EXERCISE. 
;PRINT HELPFUL INFO 
;PRINT MESSAGE 


;POINTED TO BY HELPM 
177656 AND RE-ASK 


PPA ASIA SISSY 
a ed ed nd nd nd ad 


YI 
SOMNANR WHOS 


HOST LOGIC TEST 


CHECK POWER UP OF THE HOST MICRO FIRMWARE. 


LOGTST: VERFLG CLEAR VERSION PRINT FLAG 
MOV :SET Y wet COUNT 


EAR ERROR COUNT 
ZPRINT "LOGIC _TEST’’ 
:PRINT MESSAGE 
POINTED TO BY LGKTSM 
:SET UP TIMER 
:MOVB 


GIVE pe oe TIME 
TO GET GOING. 


MAIN 
SBE 


197774 


Sesasacn*s 


MOVB 
[1S ‘PwRUP’* SET? 
“IF YES, OKAY 
ZERROR:HOST U.P. FAILED TO START. 


peseeene ERROR 1] teeenee 


aAe 


SUMMERS SE Cee eS 
= = 


Soeg" SESh 


013024 $11: NOW WATCH FOR INTR 





CZCMJAQ CMR=11 HOST ig S 


CZCMJA.P11 


561 


599 


PES Sh Sek SS 


feat en 
—_— 
-o 


61 


003042 
003050 
003056 


06-MAR-80 


017767 


032777 
001007 


012700 
012767 
004767 


ISER 
15:13 
023230 
Brenhy 
023202 


040000 
022607 
000002 
012660 
012400 
023142 
102000 


012716 
012712 


040000 
022660 
000003 
012574 


012314 


040000 
022705 


MACY11 oat che 


012732 
012724 


012712 


023156 


012662 


023050 
023110 


012576 


023042 


ERROR: cék NOT Rest r 


G 2 
14:09 PAGE 11 


:INTR & PWRUP SET; OKAY 
[WAIT A BIT 


ERROR :PWR UP SEQ NOT COMPLETED(BAD CSR) 


jxttaeee ERROR 


OC tktrnae 


NOW CHK CSR FOR 0'S 
EXCEPT PWRUP & INTR 
O.K. 

peenenee ERROR 3 senncnne 


; COUNTER FOR VERSION ITEMS 
TADDR RESULT SCPD 
;POINT AT MEM SPACE 
;STORE VERSION INFO 

> DONE ? 


:NO, KEEP GOING 


BIT (0) TEST ON THE SCPD ADDRESS REGISTER 


:TEST CLEAR OF SPAR 
+ SPAR CLEAR? 


YES, OK 
Z ERROR : can T CLEAR SPAR 
peeeeese ERROR & eeeeene 


10=MAR=80 
T LOGIC TEST 
MOV @CSR,BAD 
BIC #75777 ,BAD 
CMP GOOD , BAD 
BEQ ST2 
DEC CNTR 
BNE 511 
DATERR \N,NOTUP 
BIT #B14,aSR 
BNE . +20 
MOV #NOTUP ,RO 
MOV #2, ERRNUM 
JSR PC; DERR 
N = Ned 
SCOPE STO 
JSR RS. SCPRTN 
STO 
ST2: MOV aCSR,BAD 
BIC #102000,BAD 
CLR GOOD 
CMP GOOD , BAD 
BEQ ST3 
DATERR \N,CSRRST 
BIT #B14,aSR 
BNE +20 
MOV #CSRRST,RO 
MOV #3, ERRNUM 
JSR PC. DERR 
N = nei 
SCOPE STO 
JSR aS. SCPRIN 
STO 
S13 MOV #20,CLK 
MOV #1000, aSPAR 
MOV #VERSP,R1 
S14: MO @SPDR, (R1)+ 
DEC CLK 
BLT S16 
INC @SPAR 
BR ST4 
;SPAR REGISTER TEST 
[DO A SLIDING 
[WHILE IGNORING SPAR BIT 08 (UNUSED). 
ST6 CLR @SPAR 
CLR GOOD 
MOV @SPAR ,BAD 
BEQ S760 
DATERR \N,SPRCLR 
BIT #814, aSR 
BNE .¢ 
MOV #SPRCLR,RO 


SEQ 0019 
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012767 000004 012546 #4 ,ERRNUM 
012460 


ST6 
012200 RS. SCPRTN 


177777 022756 STé60: #=-1,PAT :SET UP FOR SLIDING 0 TEST 
000001 4 sal #B00,MASK :SET BIT MASK 


;LOAD PATTERN 
sAND READ IT BACK 


: IGNORE BIT 08 
012452 MP * SPAR DATA O.K. 
T sIF YES ae “Bai TERN 
sERROR: BAD BITS IN 
pt eeee ee Ray 5 wxenknne 
022716 


022732 
000005 
012334 


012422 


012054 
001000 022632 : . DONE WHOLE REG? 
ST? :IF YES, NEXT RIN 

177777 022622 MOV ;RE-LOAD ALL 1°S 

022612 022614 NO, PREPARE FOR NEXT BIT 

022604 ROTATE MASK 

012432 

177630 JMP zAND CONTINUE 
SCRATCH PAD MEMORY TEST 
: (1) UP COUNT IN REQ SCPD WHI RES SCPD WITH 377°S 
: (2) UP COUNT IN RES SCPD Wh! REQ SCPD WITH 379" 
S17: sADDRESS 0 


WORD 
Bae ST70: MOV ) os LOAD REQUEST SCRATCH PAD 
57 


@SPAR 
000377 MP ” DONE . 


NOW... CHECK IT 


ib 


70.K, CONTINUE 
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DATERR \N,ISATE ;ERROR:REQ SCPD ADR TEST ERROR 
peakeeen ERROR 6 *%eeeee 
032777 040000 022504 et ees 
+ 
022761 elle RO 
000006 012210 
012122 


N+ 
022456 PRINT ALLOWED? 
ST80S sNO, SKIP IT 


;PRINT MESSAGE 
SPOINTED TO BY 
SPRINT SCPD ADDRESS” OF ERROR 
ST80 
R5,SCPRIN 
@SPAR ,#377 
ST82 


sRES SCPD ALL 1°S? 
sYES, O.K. 
;ERROR:RESULT SCPD SATA Tess ERROR 


pesenene ERROR weneeee 


PRINT ALLOWED? 
SKIP IT 


. 
os a 


PRINT MESSAGE 
:POINTED TO BY SCPAD 
PRINT SCPD ADDRESS OF ERROR 


ST 
RS. SCPRIN 


@SPAR #1377 zALL DONE? 
ST10 cIF YES, REVERSE IN & OUT 


@SPAR 

ST90 

#B09 ,aSPAR D0 IT AGAIN WITH A SWITCH 
) COUNT DOWN UNTIL HALF -Way 

a0) ose 

#377, aSPDR ZAND LOAD REQ SCPD WITH 1°S 


PURVRUNII TS a sAaRTSSeSE 
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CZCMJAO_CMR=11 HOST Jig 
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729 004130 052777 001000 922202 BIS #809, aSPAR 

730 004136 027727 022176 00137 CMP @SPAR #1377 : DONE ? 

731 004144 103005 BHIS _—$T101 YES 

732 004146 005277 022166 INC @SPAR ‘NO, KEEP GOING DOWN 
733 004152 105267 022204 INCB WORD 

734 004156 753 BR $7100 

735 004160 012777 001000 022152 ST101: MOV #309, aSPAR :NOW, ...CHECK IT 

736 004166 067 022170 CLR wORD 

737, 004172 016767 022164 011666 $T110: MOV WORD , GOOD 

738 004200 017767 136 011662 MOV @SPDR , BAD 

739 004206 026767 011654 011654 CMP GOOD , BAD 

740 004214 001432 BEQ §T111 :QUT ADDR OK? 

741 004216 DATERR \N,OSATE ;ERROR:RESULT SCPD ADR TEST ERROR 
742 pteaeewe ERROR 10 seeeene 
743 004216 032777 040000 022120 BIT #814,aSR 

744 004224 001007 BNE .+20 

745 226 012700 023047 MOV #OSATE ,RO 

746 232 012767 000010 011624 MOV #10, ERRNUM 

747 004240 004767 011536 JSR PC DERR 

748 000011 N 2 Nei 

749 004244 032777 040000 022072 BIT #814, aSR :PRINT ALLOWED? 

750 004252 001010 BNE $T110S 7NO, SKIP IT 

751 004254 PNTM —- SCPAD 

752 004254 012700 021560 MOV #SCPAD ,RO ;PRINT MESSAGE 

753 004260 004767 012146 JSR PC, TYPOUT :POINTED TO BY SCPAD 
754 MOV R SPRINT SCPD ADR OF ERROR 






JSR 
756 $T110S: 
757 004274 004567 011226 






SR 
758 004300 00417 . $7110 
759 004302 027727 022032 001377 $I111: CMP @SPAR ,#1377 
760 004 103005 BHIS $1112 
004 5277 022022 AR 
004 022040 D 
4 004 000377 011534 :NOW CHECK REQ SCPD 
765 004332 005077 022002 CLR aSPAR 
766 004336 017767 022000 011524 $T120: MOV @SPDR BAD 
767 004344 026767 011516 011516 CMP sALL 1°S? 
768 004352 001432 BEQ ST121 “VES, CHECK THE REST 
769 004354 DATERR \N,ISDTE ZERROR:REQ SCPD DATA TEST ERR 
770 petenene ERROR 11 seeenes 
771 006354 032777 040000 021762 BIT #814,aSR 
a8 vkred O12 5 3103 nov i DTE RO 
774 006370 012767 aye 011466 MOV 17, ERRNUM 
775 004376 004767 011400 ‘ JSR RR 
= 
itty 040000 021734 BIT #814,aSR ;PRINT ALLOWED? 
004410 001010 BNE $T120S 7NO, SKIP IT 
00441 PNIM = SCPAD 
00441 912700 021560 MOV #SCPAD .RO ;PRINT MESSAGE 
004416 76? 01201 JSR PC, TYPOUT SPOINTED TO BY SCPAD 
004422 017 171 MOV ash “PRINT SCPD ADR OF ERROR 
0044 76 27% JSR PC oc tent 
0044 $1120S: SCOPE Ti 






K 2 
CZCMJAO_CMR=11 HOST EXERCISER MACY11 goby | 10-MAR=80 14:09 PAGE 15 
CZCMJA.P11 06-MAR=80 15:13 OST LOGIC TEST 


011070 ee R5,SCPRTN 
021674 ST121: CMP @SPAR , #377 ;DONE REQ SCPD? 

BEQ $113 :YES, CHECK CLR SC. PAD 
021664 INC @SPAR 

BR $7120 NO, KEEP CHECKING 


CHECK CLEARING ALL SCRATCHPAD LOCATIONS 
; FILL_THE ENTIRE SCPD WITH A CONSTANT (NORMALLY '0') 
AND THE CHECK IT. 


021656 $113: @SPAR START AT 0 

000000 021652 S$T130: THIS LOC (#0) CAN BE CHANGED 

021644 000377 @SPAR ,# ; TO ANYTHING AND THIS RIN 
31A ; CAN BE USED FOR ANY DATA 

021634 in @SPAR : FILL-UP & TEST 


001000 021624 : a RES. SCPD 
000000 : #0,aSPDR SRO MUST ALSO BE CHANGED 
021612 1377 C ae -#1377 


FILL UP WHOLE RES. SCPD 
021602 @SPAR 
ae 


021574 zNOW CHECK 
000000 MO oO. 00D STHIS LOC cho) must BE 
021564 : @SPDR ,BAD : TO CORRESPOND TO ST 
011302 C GOOD , BAD ; IN ORDER TO CHECK THE 
Q $1133 > CORRECT DATA FILL-uUP 
\N, ROSPCL ZERROR:REQ. SCPD NOT ALL O'S 


ptennene ERROR 12 seneeee 
040000 #814 ,aSR 
BNE +20 


023135 #ROSPCL RO 
000012 011252 MOV #12,ERRNUM 
PC .DERR 


Nei 
W316 asR :PRINT ALLOWED? 
ST 132s ZNO, SKIP IT 


#SCPAD RO PRINT MESSAGE 
PC rYPOUT :POINTED TO BY SCPAD 
AR RO PRINT SCPD ADR OF ERROR 
PC OC TPNT 
sTi 
RS, SCPRIN 


@SPAR ,#377 DONE CHECKING REQ. SCPD? 
$1134 :YES, CHECK RES. SCPD 
AR FINISH UP 


One 
com 
a 


021520 


zn 
x 3 


— 


Ba% 


z 


SEE EEEEEEEE 


ON 


$113 

31006 @SPAR NOW CHECK RES. SCPD 

#0, GOOD STHIS *w0"’ ALSO MUST BE CHANGED 
@SPDR ,BAD : 

;RES SCPD ALL 0°S? 


EEE 
B3S8S3 


Be 
3 
E 

z 

z 

2 

x & 


ZERROR:RES. SCPD NOT ALL O'S 
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peeeenee ERROR 13 xunnene 
032777 040000 621410 #815. @SR 
001007 BNE +20 


023165 #RSSPCL RO 
13° (011114 
011026 


sPRINT ALLOWED? 
sNO, SKIP IT 


#SCPAD ,RO :PRINT MESSAGE 

PC, TYPOUT POINTED TO BY SCPAD 
@SPAR ,RO {PRINT SCPD ADDR OF ERROR 
3 dates 


3 
R5,SCPRTN 


ST i tno 
021322 5 : @SPAR , #1377 DONE RES. SCPD? 

BE ST14 :YES, NEXT ROUTINE 
021312 an @SPAR 


$T135 


:TEST “'CLR TOP BYTE’’ 
: SETTING "‘CLRTPB'’ SHOULD RESULT IN ALL BITS OF THE 
; HIGH BYTE OF THE CSR BEING CLEARED. (LOW BYTE ALREADY = 0) 


000020 021240 ST14: #B04 ,aCSR 7SET *‘CLRTPB’ 
6313%6 C GOOD ALL CSR SHOULD BE 0 


1230 011020 aCSR BAD 
011012 011012 A GOOD , BAD zALL CLEAR? 


ST15 
\N, CLTBER ;ERROR:CLR TPB FAILED 
pxeeneee ERROR 14 sannene 
040000 021256 #814 ,aSR 
BNE +20 


023215 #CLTBER RO 
000014 010762 
010674 


010414 


;NOW HAN G AND CHECK CSR 

; ‘MANG'' BY USING THE CMR-11 "DZE* FUNCTION 

i THEN CHECK THAT THE CSR WAS RIGHT 

; FOR THE ‘DIE’ FUNC. THEN CHECK ALL R/W BITS OF THE CSR 


Oe igae S115: zADDR REQ. SCPD 
st) 13 021214 MOV mei3, @SPOR LOAD MAINT FUNC SUBF #3 


1 021202 wm «Oa #1 spon SDATA LEN. = 1 
$9999) pane 6 
000001 8 1170 MOV ZONE REQUEST 


000 021116 MOV 7SET ‘MAIN’ 'SHD CAUSE U.P. HANG 
007 0211 ee, CNTR SWAIT FOR THE MICRO 





M 2 
CZCMJAO_CMR-11 HOST aT eis MACY11 30A(1052) 10=MAR=80 14:09 PAGE 17 


CZCMJA.P11 06-MAR-80 15:13 HOST LOGIC TEST SEQ 0025 
897 005166 005777 021104 1$: TST acsR sMICRO DONE? 
898 005172 100403 BMI 2$ iNO, WAIT A BIT 
899 005174 005367 021074 DEC CNTR 
900 005200 001372 BNE 1$ 
901 005202 012767 137600 010656 2$: MOV #137600 ,GOOD 
902 005210 017767 021062 010652 MOV @CSR,BAD ;READ CSR REGISTER 
903 005216 026767 010644 010644 CMP GOOD , BAD DID IT HANG CORRECTLY? 
904 005224 001432 BEQ ST16 :YES, GOOD 
905 005226 012767 000000 021040 MOV #0,CNTR ' 
906 005234 DATERR \N,DIERR ;ERROR:CSR NOT RIGHT FOR 'DIE’’ 
907 parakeet ERROR 15 tannnnne 
908 5234 032777 040000 021102 BIT #B14,aSR 
909 005242 001007 BNE -+20 
910 005244 012700 023257 MOV ADIERR,RO 
911 005250 012767 000015 010606 MOV #15 ,ERRNUM 
912 005256 004767 010520 JSR PC,DERR 
913 000016 N = Nei 
914 005262 012777 000002 021006 MOV #2,aCSR ;PROGRAM INIT 
915 005270 005367 021000 ST150: DEC CNTR _gWAIT FOR INIT 
916 005274 001375 ; BNE $7150 
917 005276 012777 000020 020772 MOV #B04,aCSR ;CLR TOP BYTE 
918 005304 SCOPE ST1 
919 005304 004567 010216 JSR R5,SCPRIN 
a 005310 005114 $T15 
o56 sCHECK CSR WITH MICRO HUNG 
924 005312 012767 137755 010546 ST16: MOV #137755 ,GO0D sCHECK R/W BITS OF CSR 
925 005320 012777 000355 020750 MOV #355.aCSR 
926 005326 017767 020744 010534 MOV acSR,BAD 
927 005334 026767 010526 010526 CMP GOOD , BAD :DO THEY SET? 
928 005342 001416 BEQ $7160 7YES, TRY CLEARING THEM 
929 005344 : DATERR \N,CSRWE ;ERROR: BAD BITS IN CSR WHILE HUNG 
930 peeeneee ERROR 16 teaxnne 
931 005344 032777 040000 020772 BIT #B14,aSR 
932 005352 001007 BNE +20 
933 005354 012700 023312 MOV ACSRWE, RO 
934 005360 012767 000016 010476 MOV #16, ERRNUM 
935 005366 004767 010410 JSR PC BERR 
936 000017 N = Nei 
937 005372 SCOPE ST16 
938 005372 004567 010130 JSR RS,SCPRIN 
939 005376 05312 ST16 
940 paper 137400 010460 ST160: MOV #137400, GOOD sNOW, SEE IF THEY CLEAR 
941 005406 012777 ‘000000 020662 MOV #0,aCSR 
942 005414 017767 020656 010446 MOV @CSR,BAD 
943 tags} 026767 010440 010440 CMP GOOD :DID THEY CLR? 
944 005430 001416 BEQ $7161 :YES, NEXT 
945 005432 DATERR \N,CSRCE ERROR: CAN'T CLR LOW CSR WHILE HUNG 
946 pesanene ERROR 17 eanenes 
947 005432 032777 040000 020704 BIT #B14,8SR 
948 005440 00100 BNE +20 
949 005442 Beta 023344 “MOV #CSRCE RO 
950 005446 012767 000017 010410 MOV #17, ERRNUM 


951 005454 004767 010322 JSR PC .DERR 
952 900620 N = Nei 


CZCMJAO in” ‘ean EXcRCISER 


CZCMJA.P11 


SESE TRE R SCRE LS i iot iotdot eS RED SNR RES A SA aot oct 


— Ss OY I I I YY 


—~MAR-80 


012746 
012746 
00000¢ 


15:13 


010042 


040000 
023403 
000020 
010130 


007734 


020520 


040000 
023447 
000021 
010022 


007626 


006014 


000000 
005722 


006056 
000100 
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OST LOGIC TEST 
SCOPE $1160 
JSR R5,SCPRIN 
5T160 
020602 ST161: MOV #200,aCSR 
020636 MOV #200, aSPAR 
020652 MOV @SPDR, WORD 
COM WORD 
020640 BIC #177400,WORD 
020612 MOV WORD ,@SPDR 
020624 CMP @SPDR,WORD 
BNE ST1 
ERROR  \N,SPAVME 
020576 BIT #B14,aSR 
BNE +20 
MOV #SPAVME ,RO 
010302 MOV #20, ERRNUM 
JSR PC,ERR 
N = N+1 
SCOPE $1161 
SR __—R5, SCPRTN 
$7161 
020474 ST162: MOV #1,aCSR 
020530 MOV #200, aSPAR 
020544 Mov @SPDR , WORD 
020532 BIC #177400, WORD 
020504 MOV WORD , @SPDR 
020476 CMP WORD. aSPDR 
BNE S117 
ERROR \N, SPAVFE 
020470 BIT #814,aSR 
BNE +20 
MOV #SPAVFE, RO 
010174 MOV #21, zERRNUM 
JSR 
N = oon 
SCOPE $1162 
JSR RS,SCPRIN 
$7162 
ZTEST INTERRUPT WITH MICRO HUNG 
020454 ST17: MOV #ERINT ,AVECTOR 
MTPS #0 
MOV #0,-(SP) 
MOV #64$,-(SP) 
RTI 
648: 
NOP 
NOP 
020430 ST170: MOV #GDINT ,aVECTOR 
020334 MOV #100, aCSR 
NOP 
NOP 


18 


CHECK ACCESS Saati TO SCPD 
;WITH MA MAIN 


sit $ E SAME 
;ERROR:ACCESSED REQ SCPD WITH ‘MAIN'’ SET 


pexexke®e ERROR 20 xxennnn 


TRY AGAIN WITH ‘ST FUN’' SET 


;READ A REQ SCPD WORD 
; COMPLEMENT IT 
:FORGET TOP BYTE 
;WRITE IT BACK 
;READ IT BACK AGAIN 
31T SHOULDN'T BE THE SAME 
;ERROR: ACCESSED REQ SCPD WITH ‘‘STFUN’’ SET 
peeeeeee ERROR 21 eannnene 


SET UP VECTOR FOR ERROR 
zALLOW INTERRUPTS 


SEQ 0026 


LLL 


B 3 
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1009 005746 ERROR \N,NOINTR 
1011 005746 032777 040000 020370 BIT #814,aSR 
101g 005754 001007 BNE . +20 

1013 005756 Ore 023514 MOV #NOINTR,RO 
1014 005762 012767 000022 010074 MOV #22, ERRNUM 
1015 005770 004767 007722 : JSR PC ERR 

= + 

1017 005774 000083 000100 020274 BIC #100, aCSR 
1018 006002 SCOPE $1170 
1019 006002 004567 007520 SR RS, SCPRTN 
1020 006006 005726 7170 

1021 006010 000167 000054 ST170R: JMP INTCNT 
10ge 006014 02 ERINT: CMP (SP)+,(SP)+ 
1083 006016 ERROR  \N,ERINTR 
1025 006016 032777 040000 020320 BIT #814,aSR 
1026 006024 00100 BNE +20 

1027 006026 O12 023552 MOV WERINTR, 29 
1028 006032 012767 90002 010024 MOV #23, ERRNUM 
1029 006040 767 007652 JSR PC.ERR 
103 4 N s Nei 

1071 006044 SCOPE STI? 

1032 006064 567 007456 JSR R5,SCPRTN 
1033 006050 905702 ST17 

1034 006052 167 177650 MP $1170 
1035 006056 012716 006010 GDINT: MOV #ST170R, (SP) 
1036 005077 020210 CLR acsR 

1037 006066 RTI 

1038 006070 01 134 020266 INTCNT: MOV #ERINT| avECTOR 
1039 006076 042777 100 020172 BIC #100,acSR 
1040 006104 MIPS _— PRIO 

1041 0061046 016746 020214 V PRIO,-(SP) 
1042 006110 012746 006116 MOV $.-(SP) 
1043 906114 RTI 

1044 006116 648: 

1045 006116 012777 000100 020152 MOV #100, acsR 
1046 0061 NOP 

1047 0061 NOP 

1068 006130 000167 000046 INTCNR: JMP sT18 

1069 0061 022626 ERINT1: CMP (SP) +, (SP)+ 
1050 9061 56 020134 CLR acsr 

1051 1 ERROR  \N,WPOD! 
1988 006142 032777 040000 020174 BIT #B14.asR 
1054 9061 1007 BNE .*20 

1055 1 1 MOV #POD 1 RO 
1056 906156 1276 007700 Mu #24, ERRNUM 
105 164 7x” JSR PC, ERR 
1839 1 x SCOPE wl 
1060 1 -vf 007332 JSR RS. SCPRTN 
1061 17% 79 INTCNT 

106 176 167 000000 IMP $118 

1064 ZNOw CHECK PROGRAM INIT. 





;ERROR:HOST CAN'T INTERRUPT UNIBUS 
peeeenee ERROR 22 stenene 


;CLEAR INTR ENAB 


; CONTINUE 


“POP=POP STACK 
ZERROR: ERRONEOUS HOST INTERRUPT 
pteeneee ERROR 23 teeenee 


iSET C.P AT DEVICE PRIORITY 


SET INTR ENAB 

NO INTERRUPT SHOULD OCCUR 
;_ THIS TIME. 

:0.K. CONTINUE 

POP-POP ST 


*CLEAR INTR ENAB 
ZERROR: WRONG PRIORITY:DEVICE IS HIGHER 
peeenece ERROR 


CZCMJAO — HOST i sf 
CZCMJA.P:1 O6-MAR=80 15:13 


1065 


1095 


3ES3 


erese EEEEEEEESS BEES Sbeicee 


lt lt el el el cl ly el ly el ely el ly el cl el cls lls cel el el ml ly el 


BVSawonkwur—oSBvweARav os 


006202 
10 
16 
006224 
006240 


12777 
7? 


O50039 


MACY11 te 


We7e0e ho 


020036 


007542 


017734 
017766 


kg 


S$T180: 


$7181: 


1Q=MAR-B0 

T LOGIC TEST 
MOV #2,aCSR 
MOV MOV ,MOV 
MOV MOV .MOV 
MOV MOV, MOV 
MOV MOV 
MOV MOV. MOV 
MOV MOV. MOV 
MOV #2000 , GOOD 
MOV @CSR,BAD 
CMP GOOD BAD 
BEQ 51180 
DATERR \N,HITER 
BIT #814 ,aSR 
BNE +20 
MOV HI TER, RO 
MOV #25,€R 
JSR PC DERR 
= 
SCOPE $118 
JSR RS, SCPRTN 
S718 
BIT #815 .acsR 
BEQ $7180 
MOV #1000, aSPAR 
MOV #VERSP,R1 
MOV AVERSUN, R2 
MOVB = aSPDR, (R2) 
BNE $1182 
ERROR \N,VISF 
BIT #814,aSR 
4 yi SF RO 
MOV #26, ERRNUM 
JSR PC, ERR 
= Ned 
SCOPE $7180 
JSR RS, SCPRTN 
$7180 
MOV = (R17), GOOD 
MOVB ) 
Bie a7 ‘BaD 
CMP BAD 
BEO 1188 
DATERR \W.VIDER 
BIT #814 .,aSR 
ANE nip 
MOV RRO 


"$ 


ZERROR:2ND VERSION NOT 


- 
14:09 PAGE 20 


;D0 HOST ‘‘INIT’’ 
[WAIT A LITTLE 


7 ONLY + al SHOULD BE SET 


TREAD C 
CSR CORR CORRECT AFTER INIT? 
ERROR: PROGRAM ONT T FAILED 
aeneeae 


pteenene ERROR 


;WAIT FOR PWR-UP COMPL 


NOW READY TO READ VERSION 
[POINT AT ORIGINAL VERSION 
SAND SAVE THIS VERSION 


ZERROR:MICRO DIDN'T STORE VERSION STUFF 
RROR 


peeenene £ 26 eteeeene 


NOW COMPARE VERSION WITH ORIG. 
zCLR TOP BYTE 

;SAME AS FIRST TIME? 

AS 1ST 


peeeeeee ERROR 27 teeeeee 


SEQ 0028 


an 
NN 
aD 
ae 


ta od od 


a sd nd dd 
Pe er ae 


ek ek ee a a nd 
a 


et ed ed ot 
SFARAVNVSISELEFFERIS SEVFALUNYLS 
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AO CMR=11 HOST EXERCISER MACY11 30A(1052) 10-MAR=80 14:09 PAGE 21 
A.P11 O6-MAR=80 15:13 HOST LOGIC TEST SEQ 0029 
1 006506 SCOPE $1182 
¢ 0065 004567 007014 JSR R5,SCPRIN 

006512 006424 $7182 
4 006514 1221 § ST183: CMPB (R1)+,(R2)+ UPDATE POINTERS 
5 006516 0277 017616 001020 CMP @SPAR ,#1020 ; DONE ? 

006524 001403 BEQ S119 

0065 005277 017606 INC @aSPAR ;NEXT WORD 

0065 000713 BR $1181 


iCHECK ACCESS TO RESULT SCPD WITH INTERRUPT CLEAR 


BE GRARUNSEVSLRORONS 


BLEGE 


006534 012777 017534 ST19: MOV #20,aCSR :CLEAR TOP BYTE OF CSR 
006542 012777 901 200 017570 MOV #1200, aSPAR TADDRESS RESULT SCPD 
006550 017767 017 017604 MOV @SPDR ; WORD [READ A WORD FROM IT 
006556 167 017600 COM WORD > COMPLEMENT My 
006962 2767 177400 017572 BIC #177600, WORD T IGNORE TOP 8 BITS 
006570 016777 017566 017544 MOV WORD , @SPDR ZAND WRITE IT BACK 
0 006576 777 (017 017536 CMP WORD. aSPDR [NOW READ IT BACK 
1 006604 001016 BNE "IT SHOULDN'T BE THE SAME 
¢ 006606 ERROR \N,SPAVIC SERROR:RES. SCR. PAD ACCESSED WITH INTR CLR 
pteennee ERROR 30 eeenece 
006606 032777 040000 017530 BIT #814,aSR 
it Poa 015 nov pe 1C,RO 
vICc, 
906622 O13969 §60050 007234 MOV #30.€ 
0066 004767 007062 JSR PC, ERR 
9 000031 N - Nei 
0066 54 SCOPE $119 
006634 004567 006666 "SR RS, SCPRIN 
006640 0065 5719 


;NOw CHECK SOME SIMPLE FUNCTIONALITY 
> ENSURE THAT STARTING A ‘PAINT’ FUNCTION GIVES 
: THE CORRECT ERROR STATUS. 
; ENSURE THAT STARTING THE "MAINT’’ FUNCTION WITH "MAIN 
3 WORKS PROPERLY AND GET PORT BAUD RATES. 
017426 $120: MOV CNTR 
17% MOV #20. aCSR :CLEAR TOP BYTE 
CLR TADDRESS REQ SCPD 
017452 MOV #210, @SPOR [LOAD ‘MAIN’' FUNCTION 
INC asSPAR > TO EXAMINE HOST 
017440 nov #4 aSPOR + MEMORY LOCATIONS 
017426 mov #1, aSPDR ;ONE REQUEST 
017414 nov ae 7@ OF BYTES TO READ = 2 
017402 = #377. a@SPOR START ADDR = DFFF (oH) 
17370 MOV #337. aSPOR 
P86 $1200: Ov #i,atsr 7SET ST FUN ON “MAINT’® FUNC 
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CZCMJA.P11 06-MAR-80 T LOGIC TEST SEO 0030 
1177 006760 012767 14 007100 MOV #814+B15,GO0D ;CHECK FOR FUNCOM & INTR 
1178 006766 017767 017304 007074 $T201: MOV acSR,BAD . cs ee 
1179 006774 026767 007066 007066 CMP GOOD , BA ;"FUNCOM’' AND "‘INTR'' SET? 
1180 001421 BEQ $T202 
1181 7004 005367 017264 DEC CNTR z1F NOT, WAIT A BIT 
1182 007010 001366 BNE $7201 x 
1183 007012 DATERR \N,STESTF ;ERROR:STATUS WRONG WITH ''STFUN’’ ON ‘MAIN 
1184 peeenene ERROR 31 weeneee 
1185 007012 032777 040000 017324 BIT #814,aSR 
1186 007020 001007 BNE .+20 
1187 007022 012700 024060 MOV MSTESTF RO 
1188 007026 012767 000031 007030 MOV #31, ERRNUM 
1189 007034 004767 006742 JSR PC, DERR 
1190 N . Nei 
1191 007040 SCOPE $7120 
1192 007060 004567 006462 JSR R5,SCPRIN 
1193 007044 Q0G64¢ $720 
1194 007046 012777 001000 017264 $1202: MOV #1000, aSPAR ZADDRESS RESULT SCPD 
1195 007054 012767 000210 007004 MOV #210, GOOD SCHECK ON FUNCTION 
1196 007062 017767 017254 007000 MOV @SPDR BAD 
1197 70 026767 006772 006772 CMP GOOD , BAD ;FUNCTION CORRECT? 
1198 007076 001416 BEQ $7208 
1199 007100 DATERR \N,RSPESF JERROR:RESULT FUNC. CODE WRONG ON MAIN 
1200 pteneeee ERROQ eenerer 
1201 007100 032777 040000 017236 BIT #814,aSR 
1208 7106 001007 BNE . +20 
1203 007110 012700 026111 MOV #RSPE SF ,RO 
1206 007114 012767 000032 006742 MOV #32, ERRNUM 
1205 007122 004767 006654 JSR PC ,DERR 
1206 000033 N : Nei 
1207 0071 SCOPE $7120 
1208 ger 004567 006374 JSR RS, SCPRIN 
1209 0071 O0g64e $720 ; os 
1210 007134 01 901002 017176 $1203: MOV #1002, aSPAR iNOW ADDRESS *USOF 
a 007142 012767 9005 906716 MOV #377, GOOD [SHOULD SHOW ‘TOTAL FAILURE’’ CODE 
ete 007150 017767 017166 00671 MOV @SPDR ,BAD 
1218 007156 026767 006704 CMP GOQD BAD jUSOF O.K.? 
1214 7164 001416 BEQ ST 
1215 007166 DATERR \N,USOFE1 jERROR:"‘STFUN'' ON "MAIN’' GAVE BAD USOF 
1 1g peeeeeee ERROR 33 eeccces 
1217 0071 32777 040000 017150 BIT #814,aSR 
1218 007174 BNE .*20 
1219 0071 MOV E1,R0 
1 7, MOV a3 ERRNUM 
1221 00721 JSR PC DERR 
1 4 N = Nef 
1 14 SCOPE ST 
1 14 JSR RS, SCPRIN 
1 $720 
1 $7204: MOV CNTR ; 
1 MOV #20. acsR :SET “CLRTPB 
1 MOV s arse 3SET “MAIN: WITH SAME FUN LOADED 
1 MOV #814+815 GOOD 7CHECK FOR *FUNCOM INTR’ 
1 $1205: MOV @( SR,.BAD 
1231 7 (MP BAD 7FUN COMPLETE? 
1 7, BE. st 





CZCMJ 
C2C 


« 


BGR F 


g 
2 
256 
258 
260 
368 


el ly ll lt el el el el ll lt ell el el ll ll ly el el el el ely el 


Pietet SERB RRARETS At td 
8 ges 


0072 


70 
4 


AQ CMR=-11 HOST emene ASEe 
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017000 


040000 
024213 
000034 
006456 
006176 


001002 
900001 
016770 
006506 


040000 
024244 

35 
006370 


006110 
001001 


16702 
008426 


MACY11 


. 3 
30A(1052) 10=MAR=80 14:09 PAGE 23 


HOST LOGIC TEST 
DEC CNTR 
BNE $T205 
DATERR \N,STEMF 
#B14,aSR 
+20 


#STEMF ,RO 
#34, ERRNUM 


$1204 

R5,SCPRIN 

#1002 ,a@SPAR 
1, GOOD 


@SPDR ,BAD 


GOOD , BAD 
$1207 
\N, USOF E2 


$7204 

RS. SCPRIN 
#1001, aSPAR 
#3, GOOD 


@SPDR ,BAD 


ST21- 

\N, DATLER 
#814,aSR 

~ @ 
#DATLER,RO 
#36, ERRNUM 
PC DERR 
Nef 

ST204 

RS, SCPRIN 


Ae 


ay 
: 


-RO 
-@SPAR 
(RO) + 


@SPAR 
@SPDR , (RO) 


g gree 


3 
é 


AN ACTIVATE REMOTE 


#20, aCSR 


TS OF STARTING A REGULAR 


;WAIT A BIT 


sERROR: STATUS WRONG ON ‘MAIN’’ FUNC 
preeeene ERROR 34 sannnne 


POINT AT *USOF'' 
SHOULD SHOW SUCCESS 


; USOF O.K.? 


sERROR:BAD ‘USOF’* ON *MAIN'’ FUNCTION 
peeewene ERROR 35 eeennee 


POINT AT DATA LENGTH 
;SHOULD BE 3 


sWAS IT 3? 


:"MAIN’* FUNC GAVE BAD DATA LEN. 


jetteeeee ERROR seeeene 


ZPOINT AT BAUD TABLE 
7GET RESULTS OF EXAMINE 
;STORE BAUD RATES 


UNCTION WITH * MAIN’ 


‘ 
"FIRST USING "MAIN, THEN “STFUN’’ 


7CLEAR TOP BYTE OF CSR 


SEQ 0031 
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CMJA.P11 06=MAR-8 HOST LOGIC TEST SEQ 0032 

1289 007542 012777 000000 016570 MOV @SPAR 

1290 007550 012777 000060 016564 MOV 700" aSPOR ;LOAD ‘ACTIVATE REMOTE’’ FUNC 

1291 007556 005277 016556 INC aSPAR 

1292 007 012777 000002 016552 MOV #2,aSPDR :DATA LEN. = 2 

1293 007570 005277 016544 INC @SPAR 

1294 007574 012777 000001 016540 MOV #1, aSPDR ZONE REQUEST 

1295 007602 005277 016532 INC aSPAR 

1296 007606 012777 000001 016526 MOV #1,aSPDR :REMOTE #1 

1297 007614 012777 000200 016454 $1220: MOV #200, aCSR ‘SET ‘MAIN’ 

1298 007622 032777 040000 016446 $1221: BIT #814 -aCSR [FUNC. COMPL? 

1299 007630 001774 BEQ $7224 ‘NO, WAIT 

1300 007632 012777 001000 016500 MOV #1000, a@SPAR TADDRESS RESULT 

1301 007640 017767 016476 006222 MOV @SPDR.BAD TREAD RESULT FUNC. CODE 

1302 007646 012767 000060 006212 MOV #60, GOOD 

1303 007654 026767 006206 006206 CMP GOOD , BAD :0.K.? 

1304 007662 001416 BEQ ST22e 

1305 007664 DATERR \N,RSPEMF ZERROR:RES. FUNC. CODE WRONG FOR ‘MAIN’ 

1306 ptteneee ERROR 37 ketenes 

1307 032777 040000 016452 BIT #814,aSR 

1308 007672 001007 BNE .+20 

1309 007674 012700 0246341 MOV #RSPEMF ,RO 

1310 007700 012767 000037 006156 MOV #37, ERRNUM 

1311 007706 004767 006070 JSR PC DERR 

1312 0 N 2 Nei 

1313 007712 SCOPE $T22 

1314 007712 567 005610 JSR RS SCPRTN 

1315 007716 007534 $722 

1316 007720 012777 001002 016412 $1222: MoV #1002, aSPAR ZADDR ‘USOF*’ 

1317 012767 000377 006132 MOV #377, SSHOULD SHOW TOTAL FAILURE 

1318 007734 017767 016402 006126 MOV : 

1319 007742 026767 006120 006120 CMP GOOD , BAD ;USOF O.K.? 

1320 007750 001416 BEQ $1228 

1321 007752 DATERR \N,USOFE3 ;ERROR:"MAIN’’ ON REG FUNC GAVE @RONG USOF 

1356 pteeeene ERROR 40 eeeeece 

1323 007752 032777 040000 016364 BIT #B814,aSR 

1324 007760 001007 BNE .*20 

1325 007762 01 024403 MOV E3, 

1326 007766 012767 000060 006070 MOV #40, ERRNUM 

1327 007774 767 006002 JSR RR 

1328 00004 N = j 

1329 010000 SCOPE 

13 910000 004567 005522 JSR RS, SCPRTN 

1331 010006 0075 $722 

135@ 010006 01 01 $1223: MOV #20, aCSR :CLR TOP BYTE 

1 010014 012777 1 oI MOV #1, aCsR >SET ‘‘STFUN’’ 

1334 10082 777 040000 016246 $1224: BIT 14,aCSR 7FUNCOM SET? 

1335 0100 177% BEQ 1206 WAIT 

1336 100 12777 001 16 MOV #1002, aSPAR SADDRESS USOF 

1337 H+ 4 12767 MOV #364. GOOD 7SHOULD SHOW REM, ERROR 

13 10046 017767 01 14 MOV @SPDR BAD 

1339 010054 767 CMP GOQ0 .BAD jUSOF O.K.? 

1340 10062 001416 BEQ ST 

1p 10064 DATERR \N,USOFES ERROR : WRONG USOF ON REGULAR FUNCTION 
*@eeeesece RROR eeeeeee 

1 1 32777 040000 016252 RIT 14,aSR < 

1344 O80 $ 1007 BNE .*20 
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024446 MUSOFES ,RO 
000041 005756 #41 ,ERRNUM 
005670 PC ,DERR 
+ 
$1223 
005410 JSR R5,SCPRIN 
ST223 


LOGIC TEST. PRINT END OF PASS AND VERSION STUFF 


AAADRERE LK 
WU SOONAA 


ar 


WANN 
Ne 
RS 


TST VERFLG z1S FLAG SET? 
BEQ ST23A : 
TYES, JUST PRINT ‘END PASS’' 
*NO, SET FLAG 
[GET VERSION DATA 
[AND BAUD RATES 
[PRINT ‘VERSION °’ 
SPRINT MESSAGE 
‘POINTED TO BY VERSM 
;DUMP ALL VERSION INFO 


016220 


lolelolelelelela) 
~ 
o 


24 33333 
o oO 


SESLSSE 
=S5 


jelelelelelelelelelelelelo) 
$ 


— ot tS YS YY YY YS YS YS 


oo 
—s 
33 
= 
Oo 


SSSESESTESESSS 
oS 


mM =n 


:PRINT ‘BAUD RATES:"* 
;PRINT MESSAGE 
POINTED TO BY BAUDM 
;PRINT “PORT 


23 
ge ge gs 


SPRINT MESSAGE 

[POINTED TO BY PORTOM 

;SORT OUT CORRECT BAUD RATE 
:R3 POINTS AT TABLE OF RATES 
DOUBL 


RRRERE 
MmONNM 


RR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


WAWNAWAWAA 
BIVAARAN 


02502 
01611 
01611 


3 


: E OFFSET 
: CORRECT OFFSET 
;GET BAUD 


iNOW PRINT "PORT 1 = °° 
PRINT MESSAGE 

POINTED TO BY PORTIM 
GET NEXT BAUD RATE CODE 
SORT OUT CORRECT PART 


zPuT IT IN L.S. BIT PLACES 


oats OF FSET 

sUSE IT AS TABLE OFFSET 
;PRINT RATE F 11 
;PRINT “PORT am 
ZPRINT MES 

sPOINTED TO ey PORT 2M 
2GET BAUD RATE CODE 


a a dk ed od ot = 


ee ed ed dd 


SSESFFESSSSSSLSS SELES 


pw hw www wlan alana lala lal olnlololelolelololololelolo) 


z 


Hered aaaet re eee eee Pee 
& 


- ~ 
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—MAR- T LOGIC TEST SEQ 0034 
1401 010356 042767 177770 015776 BIC #177770,WORD ;SORT OUT CORRECT PART 
1402 010364 012703 025022 MOV #BDRTBL .R3 
1403 010370 006367 015766 ASL WORD ;DOUBLE OFFSET 
1404 010374 066703 015762 ADD WORD ,R3 SUSE IT AS TABLE OFFSET 
1405 010400 011300 MOV (R3) .RO 
1406 010402 004767 006024 JSR PC, TYPOUT ;PRINT BAUD RATE FOR PORT 2 
1407 010406 PNTM — PORT 3M ‘PRINT ‘PORT 3 = 
1408 010406 012700 021716 MOV #PORT 3M,RO [PRINT MESSAGE 
1409 010412 004767 JSR PC, TYPOUT sPOINTED TO BY PORT3M 
1410 010616 111267 015740 MOVB (RE) WORD 
1411 010422 042767 177617. 015732 BIC #177617,,WORD :GET CORRECT PART. 
1412 010430 006267 015726 ASR WORD 
1413 010434 006267 015722 ASR WORD 
1414 010640 006267 015716 ASR WORD 
1415 010444 006267 015712 ASR WORD 
1416 010450 012703 025022 MOV #BDRTBL .R3 
1417 010454 367 015702 ASL WORD ;DOUBLE OFFSET 
1418 010460 703 015676 ADD WORD ,R3 SUSE IT AS TABLE OFFSET 
1419 010464 011300 MOV (R3) RO 
1420 010466 004767 005740 JSR PC, TYPOUT ;PRINT RATE FOR PORT 3 
1421 010472 004767 JSR PC “NULLS [NULLS AFTER PRINTOUT 
1422 010476 000167 000016 JMP $735 
1424 010502 005367 015576 S124: DEC ITER : UPDATE ITERATION 
1425 010506 001404 BEQ $725 ; 
1426 010510 032777 004000 015626 BIT #811, aSR <OONELE ITERATION? 
1427 010516 001415 BEQ S726 
1428 010520 012767 000010 015556 S725: MOV #10, 1 TER 
1429 010526 005267 015560 INC PASCNT [UPDATE PASS COUNT 
1430 010532 032777 002000 015606 BIT #810,aSR [END PASS INHIBIT? 
1431 01 001004 BNE $126 
1682 010542 004767 000014 JSR PC, ENPRTN :PRINT END PASS INFO 
1433 01 004767 007004 JSR PC; NULLS NULLS AFTER PRINTOUT 
1434 010552 004767 $126: JSR PC MONIT i CHECK FOR CONTROL CHARACTERS 
1635 010556 000167 1721 IMP sT6 [START OVER 
1437 
1438 010562 ENPRTN: PNTM — ENDPS PRINT “END PASS # 
1439 01 912700 1732 MOV #ENDPS RO PRINT MESSAGE 
1440 010966 00476 JSR PC, TYPOUT :POINTED TO BY ENDPS 
1441 0105 016700 15514 MOV PASCNT RO [GET PASS COUNT 
1e4@ 010576 00476 76 JSR PC, DECPNT :PRINT JT IN DECIMAL 
144 910602 PNTM =—s ERC TM "PR ERROR COUNT = *" 
1444 Qi 912700 1767 MOV #ERCTM.RO PRINT MESSAGE 
1445 10608 76 JSR PC, TYPOUT POINTED TO BY ERCTM 
1 10612 105767 0154 S18) séOF SCHECK FOR ERROR CNT OVERF L Ow 
1447 010616 001405 BEO E [17 DID*T, PRINT COUNT 
1448 01 PNTM IT ID PRINT "‘e*QVERFLOwe®" 
1449 01 12 1765 MOV #OVFLM, 20 [PRINT MES 
1450 106 Bosco. ish pC TYPOUT SPOINTED TO BY OVFLM 
14 106 16 15464 ENOl: MOV ERRCNT RO ;GET ERROR COUNT 
1288 106 4) bee $e JSR PC DECPNT ERIN IT IN DECIMAL 
1454 1 ? ENRET: RTS PC 


1456 -SBTTL FORT LOOPBACK TEST 
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CZCMJAO_CMR=11 HOST EXERCISER 
CZCMJA.P11 06-MAR-80 13° T LOOP=BACK T 


15: 


sASK FOR PORT # TO BE TESTED (<CR> = ALL PORTS) 


012767 000000 015422 PORTLP: MOV #0, CNTR ;BETTER CHECK FOR PWR-UP COMPL 
102000 PRiC: MP aCSR,#102000 ;POWER UP COMPLETE? 
POK :YES, CARRY ON 
NO, WAIT A BIT 


;ERROR:HOST MICRO FAILED TO START 


peeneeee ERROR 62 seanane 


015446 
005152 


;RUN LOGIC TEST. 
PC, SWHLT 
015354 : MOV ; LOAD ITERATION COUNT 
LFLG iC FLAG 


oo0oo 
—2[2544 


SS 
Ww 


MES 
:POINTED TO BY PLTM 
‘ORINT "PORT # (<CR>=ALL) *' 


T MESSAGE 
iPOINTED TO BY PORTN 
DEFAULT IS "ALL" 
LOAD RETURN ADDRESS 
GET KBD INPUT 
sWAS IT DEFAULT (OR 4)? 


YES SET “‘ALL** FLAG 
: START WITH PORT 0 


$s 
= 
WISN 
AAO 
SN 
ss 
= 
gs 


rr 


238 
it 
£o 
oo 
a 
: 


SER 


& 


WAS IT HIGHER THAN 4? 
;NO, MUST BE A PORT @# 


3 TRY AGAIN 
;PRINT MESSAGE 
POINTED TO BY AGAIN 


SSRERES ES 


7 SAVE PORT 
:CLR TOP ayTe 
ZADDRE Ss 


Bosse sesyss 


‘DATA LEN, = 
ZONE REQUEST 


484 010754 
re 0764 
0 
0 
0 
0 
0 
0 
0 
0 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


ee ee ss = a 


8 4 8 wb 
FSNeSR 


ANIA 
lt el el 
a=) 
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>>y 


R MACY11 30A(1052) 10=MAR 
2 POR 


O CMR=11 HOST EX ~80 
. 06 - T LOOP=BACK TEST 


E 
Pl) “MAR-80 


vw 


a@SPAR 
PORT, @SPDR ;LOAD PORT # (XMTR) 
aSPAR 

PORT, @SPDR ZLOAD PORT # (RCVR) 

#20, CNTR : CHARACTER COUNTER 
#DATBL RI SLOOP DATA FROM 'DATAL'' 


) 
(R1)+,@SPOR ;LOAD DATA BYTE 
CNTR LOADED ALL? 
NO, KEEP LOADING 
sPRINT “TYPE <CR> WHEN READY'’ 
PRINT MESSAGE 
POINTED TO BY TYPCR 
2 INDICATE PROMPT PENDING 
LOAD ANY DEFAULT VALUE 
GET KEYBOARD INPUT 


3<CR> ONLY TYPED? 
:1F NOT, KEEP LOOKING FOR IT 


Ww 
ODONAUEW 
v=) eld al nl cd ld cca 
Wtf 
SNFSLEE 


woo 
NAOKO 


a at ad a cl a ad ct a cel el el el cc ed ee 
MOMIMUNIMNOS 


PAA AAA AAA AAVNUIVIVIUT 


Beery 


a a kd sd dd dd 
Ww 
Nm 


lelelelelelelelelelelelelelolololelole) 
3232335355559 5535 55553555 


AVS SISVRARAVLS 


3 START MAINTENANCE FUNCTION 


PSTS: #20,aCSR :CLR ‘TOP BYTE 
MOV #200, aCSR [SET “MAIN’’ 
PST6: ts ac sk [LOOK FOR INTERRUPT BIT 


AND WATCH FOR CNTRL CHARS. 
BR PST6 
PST60: iNOW CHECK USOF 
C #1 ; DONE CESSFULLY? 
NO, CHECK ERROR TYPE 


7YES, DONE A PASS 
[FUNCTION FAIL? 


sERROR: TOTAL FAILURE OF ‘MAIN’ FUNCTION 


peeeeene ERROR 43 eeeeeee 


py hg yh yh hh hg yt 
SBIEAF 


SESRESENSENoSR |g 


014766 


WA 
eS 


004472 


Soooo SOCOOOCOOOOCOOCCOOO 
222254 3235533253355 55555554 


kt a es ss ws I st 4 Se ts ss SS as 9 4 4 YY 


Sek 


Ne 
0147460 ZPRINT ALLOWED? 
BNE PST ; 


RRSRS NEE 


PRINT MESSAGE 
POINTED TO BY PORTMS 


™ 
— 
Lv 3 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SESERER ESSER RUNS Se cokes ee 


o 
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0 1 OOP=BACK TEST SEQ 0037 
1569 011450 ERROR  \N,PLTXTO yERROR:XMTR TIMEOUT ERROR 
1570 pexenane ERROR 44 xeanane 
1571 011450 032777 040000 014666 BIT #814,aSR 
1572 011456 001007 BNE .+20 
1573 011460 012700 024546 MOV #PLTXTO,RO 
1574 011464 012767 000044 004372 MOV #44 ,,ERRNUM 
1575 011472 767 004220 JSR PC,ERR 
1576 000045 N = N+ 
1577 011476 032777 040000 014640 BIT #814,aSR jPRINT ALLOWED? 
1578 011504 001010 BNE PST8S NO, SKIP IT 
1579 011506 PNTM = PORTMS :PRINT ‘PORT # *' 
1580 011506 012700 022331 MOV #PORTMS ,RO sPRINT MESSAGE 
1581 011512 004767 004714 JSR PC, TYPOUT ;POINTED TO BY PORTMS 
1582 011516 016700 014600 MOV PORT ,RO 
1583 011522 004767 005646 JSR PC ,OCTPNT 
1584 011526 PST8S: SCOPE PSTS5 
1585 011526 004567 003774 JSR R5,SCPRIN 
1586 011532 011 PSTS 
1587 011534 000167 000230 JMP END CHK 
1588 011540 027727 014576 000373 PST80: (CMP @SPDR ,#373 ;RCVR HUNG UP? 
1589 011546 1034 BLO PST9 
1590 011550 ERROR  \N,PLRCTO ZERROR;:RCVR TIMEQUT ERROR 
1591 peeeenen ERROR 65 senenne 
1592 011550 032777 040000 014566 BIT #814 ,aSR 
1593 011556 001 . BNE .+20 
1594 011560 012700 024574 MOV #PLRCTO- RO 
1595 011564 012767 000045 004272 MOV #45 .ERRNUM 
1996 011572 004767 004120 . JSR PC.ERR 
; + 
1598 011576 032777 040000 014540 BIT #814,aSR ;PRINT ALLOWED? 
1599 011604 001010 BNE PSTBOS =NO, SKIP IT 
1600 011606 PNTM — PORTMS :PRINT ‘PORT # *' 
1601 011606 012700 022331 MOV #PORTMS ,RO :PRINT MESSAGE 
1608 011612 004767 004614 JSR PC, TYPOUT ZPOINTED TO BY PORTMS 
1603 011616 016700 014500 MOV 4 
1604 011622 004767 005 JSR PC ,OCTPNT 
1605 011626 PST8OS: SCOPE S 
1606 011626 904567 003674 JSR R5,SCPRIN 
1607 0116 11 PSTS 
1608 011634 000167 000130 JMP END CHK 
1609 011640 01 901 1 014672 PST9: MOV #1001 ,@SPAR zADDRESS DATA TO FIND BAD WORD 
1610 011646 $555 144 14464 ADD @SPDR ,@SPAR 
isp Siiees Guorer Sigs Gmeees RY SSR AR, oe hee 
1818 o11050 777 O1eee ADD #2, a5PAR 
1614 011676 017767 01 0041 MOV GOOD :GET GOOD WORD 
1615 011 DATERR \N,PLDERR ;ERROR:LOOP TEST DETECTED DATA ERROR 
1616 peeeenee ERROR 46 sennene 
1617 011704 032777 040000 014432 BIT #B14.aSR 
1618 011712 001007 BNE .*20 
1619 O11716 g 4622 MOV #PLDERR RO 
1620 11720 1276 004136 MOV t 
1621 0117, 6? 050 ‘ JSR PC «DERR 
1 011732 040000 014404 BIT #814,aSR sPRINT ALLOWED? 
1 011740 001010 BNE PST9S 


M 3 
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CZCMJAO_ CMR=11 HOST EXERCISER 

CZCMJA.P11 O6-MAR-80 15:13 LOOP=BACK TEST 
105? 011742 PNTM PORTMS PRINT ‘PORT # *' 

011742 012700 022331 MOV #PORTMS ,RO PRINT MESSAGE 

1657 011746 004767 004460 JSR PC, TYPOUT :POINTED TO BY PORTMS 
1628 011752 016700 014344 MOV PORT ,RO 
1629 011756 767 005412 JSR PC ,OCTPNT sPRINT # 
1630 011762 PST9S: SCOPE PST 
1631 011762 004567 003540 JSR R5,SCPRIN 
1632 011766 011262 PST5 
8 
1635 011770 052777 000020 014300 ENDCHK: BIS #B04 ,aCSR :CLR TOP BYTE 
1636 011776 005767 014262 TST ALLFLG :DOING ALL PORTS? 
1637 012002 001441 BEQ PNTEND 3NO, DONE A PASS 
1638 026727 014312 000003 CMP PORT ,#3 sYES, DONE ALL? 
1639 012012 103416 BLO ENDO 3NO, KEEP GOING 
1640 012014 005067 014302 CLR PORT CLEAR PORT # 
1641 012020 012777 000003 014312 MOV #3, QSPAR ; IN REQ. SCPD 
1642 012026 016777 014270 014306 MOV PORT ,@SPDR 
1643 012034 005277 014300 INC @SPAR 
1644 012040 016777 014256 014274 MOV PORT ,@SPDR 
1645 01 000417 BR PNTEND 
1646 012050 5267 014246 ENDO: INC PORT sNEXT PORT 
1647 012054 012777 000003 014256 MOV #3, aSPAR sPREPARE TO LOAD NEXT PORT # 
1 012062 016777 014234 014252 MOV PORT ,@SPDR 
1649 012070 005277 014244 INC @SPAR 
1650 012074 016777 014222 014240 MOV PORT ,@SPDR 
162) 012102 000167 177154 JMP PSTS 
1653 012106 005367 014172 PNTEND: DEC ITER : UPDATE ITERATION COUNT 
1654 012112 001404 BEQ PNTO 
1655 012114 032777 004000 014222 BIT #B11,aSR :SwW 11 =, INH ITERATION 
1656 012122 001415 BEQ PNTRTN 
1657 012124 012767 000010 014152 PNTO: MOV #10, 1TER RELOAD ITERATION COUNT 
1658 012132 005267 014154 PNT1: INC PASCNT UPDATE PASS COUNT 
1659 012136 032777 002000 014200 BIT #810,aSR 3S 10 = INH END PASS PRINT 
1660 012144 001004 BNE PNTRTN 
1661 012146 004767 176410 JSR PC,.ENPRIN sPRINT END PASS 
1oo6 012152 004767 005400 JSR PC.NULLS :PRINT NULLS 
1665 012156 004767 003760 PNTRIN: JSR PC MONIT 
sega 012162 000167 177074 JMP PSTS 
1666 -SBTTL HOST-REMOTE EXERCISE 
1g 
1669 ;START BACKGROUND SCAN, WAIT FOR ‘‘THRU'’ 
1670 sREPORT ALARMS WHILE WAITING. 
1671 sWHEN *‘THRU’’ SETS, DO A “PORT CONFIGURATION STATUS'* REPORT 
167 AND THEN RUN DIAGNOSTIC’ FUNCTION ON ALL 
167 : AVAILABLE REMOTES 
ior : REPORT ALL CHANGES OF REMOTE STATUS 
1671 
16 012166 CMREXC: MTPS #340 Z INTERRUPT OFF 
1678 012166 012746 000340 MOV #340,-(SP) 
1679 012172 012746 012200 MOV #64$,-(SP) 
1680 012176 000002 RT] 
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643: 
PASCNT ;CLEAR PASS COUNTER 
014072 MO . ;LOAD ITERATION COUNT 
OF LOF ;CLR FLAGS & COUNTERS 


014044 MO #0,CNTR + SET UP TO TIME POWER 
102000 CELP: . PWR-UP & INTR SET? 
B EXS1 YES, CONTINUE 
:NO, WAIT A BIT 


BN 
012246 sERROR:HOST MICRO WON'T START 
pexaeneke ERROR 47 teenane 
012246 014070 —— 
+ 


#NOGO , RO 
012262 000047 #47, ERRNUM 
012270 004767 PC,ERR 
00005 N+i 
012274 ;RUN LOGIC TEST 
003206 


PC, SWHLT 
CHNGF L CLEAR STATUS CHANGE FLAG 
:$ OFF CLEAR 


acsR 
#20,aCSR E 

#44 ,aCSR 3 SCAN & THRU INT 
EXCM PRINT eRe TT EXERCISE ROUTINE" 
#EXCM,RO PRINT MESSAGE 

PC, TYPOUT :POINTED TO BY EXCM 

ONCE 

THRUF 

TALLY 

EXTBL1 :CLEAR TABLES 

EXTBL 

EXTBL 

EXTBL4 


EXERCISER MAIN LOOP 
EXS2: PC, SCALM 
JSR PCMONIT 
013670 
013660 


a 


SCAN ALARMS 
CK FOR CNTRL CHARS. 
hae COMPL SET? 


YIPIZIF2332933333 
SOO NAnRWHmO NOW 


SERA! 


RAGISITVATS 


= 
Ba 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Be Se Se Be Be Be Be Be Be Be Se Be Be Be Be Be Se Be Be 


SKPD¢ 
FC. PRICNF 
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C2 

CZCMJA.P11 O6-MAR=80 15:13 ST=REMOTE EXERCISE 
1737 12474 005067 013570 CLR CHNGF L -CLR CHANGE FLAG 
1738 012500 112777 74 013570 MOVB #74, aCSR i ENAB BKG SCN,CHGST, THRU INTR 
125 Sis Se, Oe io OANA aa tere 
1741 O1¢514 105767 013540 TSTB ONCE SALREADY DONE REPORT? 
1742 012520 001014 BNE EXS :YES, SKIP IT THIS TIME 
1748 Oi¢5 2 904767 001314 sr PC REPORT “REPORT ALL REGULAR REMOTES 
1745 012530 105067 013524 EXS3A: CLRB ONCE NO REMOTES. WAIT FOR THR 
1746 0125 PNTM  NOREM :PRINT "NO REMOTES. OUAI TING" 
1747 012554 012700 022223 MOV #NOREM, RO MESSAGE 
1748 012540 004767 003666 JSR PC, TYPOUT POINTED TO BY NOREM 
1749 012944 105067 013517 cLRB Tne SCLEAR THRU FLAG 
1751 012552 105067 013503 EXS3B: CLRB  THRUF :CLEAR THRU FLAG 
1752 012556 112767 177777 013474 MOVB = #1, ONCE [SET ‘ONCE’ FLAG 
1753 012564 000701 BR EXS2 
1755 ;PORT CONF JGURAT ON STATUS SUBROUT INE 
1756 ‘PERFORMS A P.C.S. ON ALL 4 PORTS AND SAVES THE 
1737 SREMOTE #°S IN TABLES 
1759 012566 005067 013476 PRTCNF: CLR CHNGF L CLEAR "'CHANGE FLAG'" 
1760 012572 00 13554 CLR TALLY ‘CLEAR REMOTE TALLY 
1761 012576 012767 25204 013550 mov #EXTBL1, TBLAD 'SET UP TO CONFIG PORT 0 
1763 Q1g612 67 00072 JSR PC -PORCNF ;DO PORT CONFIG ON PORT 0 
oe Oe OS Tee Sltot oi scan i ae 
1766 B15683 767 900702 JSR PC -PORCNE :DO PORT CONFIG ON PORT 1 
1767 012636 012767 025604 013510 MOV ae XTBL  TBLAD 
1768 012644 012767 13446 MOV #2,PORN 
1769 012652 004767 JSR PC PORCNF ;DO PORT CONFIG ON PORT 2 
vn 01 See 1350 Sop0os H18e2 m hie 
177 01 $0967 5 JSR PC .PORCNF :D0 PORT CONFIG ON PORT 3 
1 012676 005767 spire TST CHNGF L SANY CHANGES PENDING? 
177% 01 001331 BNE PRT CNF TIF SO, DO IT ALL OVER 
1775 012706 ? RTS PC 
775 
1778 TINE TO DO THE DIAGNOSTIC FUNCTION ON 
ALL REMOTES WHICH ARE ON LINE AND REGULAR 
1784 1 706 12701 925204 DIAGFU: MOV #EXTBL1.R1 :GET TABLE FOR PORT O 
178 12712 012167 013356 MOV (R1)*, CNTR [GET # OF REMOTES ON PORT 
1785 71 100, ONE xP SNONE, NEXT PORT 
1 1 12167 01 SKP1: MOV tai Se REM :GET 1ST REMOTE # 
1 1 767 if JSR PC, DIAGNF [DO DIAGNOSTIC FUNC. ON REM. 
1 1 367 13334 DEC CNTR [DO ALL REMOTES ON THIS PORT 
78 12740 001371 BNE SKP1 
1 12762 012701 025404 SKP2: MOV #EXTBL2.R1 GE! TABLE FOR PORT 1 
1791 01 746 12167 2 MOV (AI) ©, CNTR [1ST ENTRY IS # OF REMOTES 
1792 01 BNE SKP3 
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012754 0001 16 SKP4 7 IF NONE, NEXT PORT 
012760 SKP3: (R1)+,REMNO :GET REMOTE NO. 
012764 004767 342 , D0 DIAGNOSTIC FUNCTION ON REM, 


SN 
“N 
= 


Bea3S 


SKP4: GET TABLE FOR PORT 2 
SKPS : 1ST ENTRY IS # OF REMOTES 


SKP6 3 1F NONE, NET PORT 
SKPS: (R1)+,REMNO GET REMOTE # 
PC ,DIAGNF DO DIAGNOSTIC FUNC. ON REMOTE 


CNTR 

SKP5 

WEXTBL4,R1 :GET TABLE FOR PORT 3 
(R1)+ .CNTR [1ST ENTRY IS # OF REMOTES 


S238 
=non— 
oO 


oO 
= 


BESS IIIIIII 
g 


jelelelelelolelelololelelelelololelole) 
wigs 
8 
¢33 


SESES8 
gee 


SKP8 P : 

(R1)+,REMNO é EMOTE # 

PC ,DIAGNF D0 DIAGNOSTIC FUNCTION ON REM, 
CNTR :FINISH ALL REMOTES ON THIS PORT 


RETURN 


-wn 


i a ak ks od ot as I 
ONE 


gFEvSroReSE 


02 0000 00 0D 
— se oe ot 
fwn—o 


;UPDATE ITERATION COUNT 
z1F 0, END PASS. 

:Sw 1i=1 == INM ITER. 
;RELOAD ITERATION COUNT 
[UPDATE PASS COUNT 

7SwW 10 = INH END PASS PRINT 


PRINT END PASS STUFF 


SSS 


01 
01 
01 
01 
gt 

1 
01 
01 
01 
at 

1 
01 


Ss ss ts ss 4 


AA. AAA AAA 


KEEP GOING 


TO CHECK FOR ALARMS AND CHANGES OF REMOTE STATE. 
-» RING 4 BELLS 
OF REMOTE STATE...SET A FLAG 


FEKSRSFERERS 
R Weganzeece= 


; 


7CHANGE OF STATE? 
7NO, CHECK THRU 
[SEE IF THIS 1S A SYS ERR 


SReegeaueeese® | F 
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013100 000310 @SPDR , #310 ; OR REMOTE CHANGE 
;REMOTE CHANGE IS O.K. 
\N, SYSER ;ERROR:HOST SYS ERROR. RUN LOGIC TEST. 
peeeeeee ERROR 50 seeeene 
013070 #B14,aSR 
BNE +20 
ASYSER, RO 


fs 


BNLSE | 
2) 


002574 


0 00 09 00 CO CO 
RAF 

Ww 

iV 

ER SVEFLS 


:PRINT "REMOTE STATUS CHANGE’ 
:PRINT MESSAGE 
POINTED TO BY REMCHG 
‘PRINT ‘REMOTE # 
SPRINT MESSAGE 
PC, TYPOUT :POINTED TO BY REMSG 
#1003, aSPAR 
:GET THE {REMOTE NUMBER 
PC OC TPNT PRINT 
REMSTM ZPRINT REMOTE STATUS NOW * 
#REMSTM,RO PRINT MES 
PCT YPOUT <POINTED TO BY REMSTM 
#805 ,@SPDR :NOW REGULAR? 
SCA2A 
YES, PRINT " REGULAR’ 
#REGMG RO [PRINT MESSAGE 
PC, TYPOUT :POINTED TO BY REGMG 
BR SCA2C 
012740 : Bl SPOR ; IRREGULAR? 
ZYES, PRINT “‘IRREGULAR’’ 
[PRINT MESSAGE 
[POINTED TO BY IRRGMG 
jOTHERWISE, JUST PRINT THE STATUS 


SC zAND LEAVE THE TALLY ALONE 
012716 : ZUPDATE TALLY FOR ADDED REMOTE 


012710 71S TAL ALREADY =0? 

012702 me | 

012576 

Oo5e8 

19958 Bidemm SCARF: 
012556 S(A3: 


2288 


—~ = 
oOo 


EaEe TEES 


Sass 


Ww 
wi 


\WWAIAIAI AIA AWW 
Ero 
ESSSS 


PS 


BaRRa 
“~-o- 


Pt 
— 
38 


N 
:POINTED To TO ov ALROF F 


CLEAR TO Tor By £ 

SEE IF ANY MORE CHANGES. 
SIS Thu SET? 
NO, LEAVE 


ness 


ee ee ee ee ee ed ed od ed — od od — 


i 2 — ~) - * — _ - — 


SESSSESSFSF 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


ha 
~ 
o- 
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-MAR~ HOST=REMOTE EXERCISE SEQ 0043 
1905 013522 112767 177777. 012531 MOVB = #=1, THRUF rYES, SET THE ‘‘THRUF' FLAG 
1906 013530 052777 000020 012540 BIS #20.aCSR ‘CLEAR TOP BYTE 
1907 013536 SCART: RTS PC 
1909 ; SUBROUTINE TO PERFORM ‘PORT CONFIGURATION STATUS'’ ON A GIVEN 
1910 SPORT AND STORE THE RESULTS IN A GIVEN TABLE. ALSO 
1911 :STORED IS THE STATUS OF EACH REMOTE 
191@ :FOR EACH REGULAR REMOTE FOUND, A TALLY IS INCREMENTED 
1916 ; TABLES ARE IN THE FOLLOWING FORMAT: 
1916 ; { # OF ENTRIES ] 
1917 : CREM STATICREM # 
1918 ; C | Shee 
1920 0135460 016701 012610 PORCNF: MOV TBLAD ,R1 ; TABLE ADDR GIVEN BY CALLER 
1921 0135464 052777 000020 012524 BIS #304, acSR 'CLR TOP BYTE OF CSR 
19¢@ 013552 005077 012562 CLR asPAR TADDR REQ. SCPD 
192 013556 012777 000140 012556 MOV #140, aSPDR [LOAD PORT CONF. ST. FUNC. 
1924 01 005277 012550 INC aSPAR 
1925 013570 012777 012544 MOV #2, aSPDR ;DATA LEN. = 2 
1926 013576 005277 01253 0125 5¢ INC a@SPAR 
1927 Bi ens 012777 012532 MOV #1, aSPDR : ONE REQUEST 
1928 013610 377 Diese S26 INC a@SPAR 
1929 013614 016777 012520 MOV PORN, @SPDR :PORT # GIVEN BY CALLER 
1930 013622 004767 17 177300 JSR PC, SCALM CLEAR ALARMS & CHANGES 
1931 01 052777 012442 BIS ,acsR ‘START FUNCTION 
1932 01 032777 BP 800 12434 PORO: BIT #314 -acsR : FUNCT ION COMPLETE? 
1933 01 901003 BNE POR [NO, WAIT 
1934 01 00476 177300 JSR PC, SCALM [SCAN ALARMS AGAIN 
1935 013650 1 BR PORD 
19 013652 004767 902264 POROO: JSR PC MONIT 
1937 013656 12? 7 001000 012454 MOV #1000, aSPAR ;ADDR RESULT SCPD 
1938 013664 27 012452 000140 CMP @SPDR , #140 [THIS RESULT FROM PORT CONFIG? 
1939 013672 001415 BEC 
1940 013674 ERROR  \N,SYSER ZERROR:HOST SYS ERROR. RUN LOGIC TEST 
1941 pteeeees ERROR 51 seeceee 
1 013674 012442 BIT #814.aSR 
Voce 13904 OV sSYSER.RO 
1945 0 710 002146 MOV pth ERRNUM 
1 13716 JSR PC, ERR 
19% N : nei 
1948 1 3 HLT 
1%9 01 JSR PC, SwHLT 
1950 01 POR: INC asPar [GET # OF REMOTES 
1983 H ASR “ae ;DIVIDE BY 4 

:DIV y 

1988 O182, Agh 
1954 0137 MOV (RI) ;SAVE AS # OF ENTRIES 
1955 013744 BNE PORLD IF MORE THAN . LOAD 
1956 137 IMP T UF None EXIT 
1957 01 PORLD: MOV 45 ™R 1 # OF ENTRIES 
1 1 012354 MOV #1003 .aSPAR 
1959 01 764 PORCN: MOVB @SPDR.(R1)+ [LOAD REMOTE # 
1960 01 INC 
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3774 a4 63 01234 

08367 Otee6 
oS 367 012262 
005767 012300 
00 





ote 2e 012701 025604 
0141 0121 012144 
0141 0014 

0141 012767 000002 
Bild Si See 
014150 13467 012120 
Bees BPE oan 
Siiee ee us 
0141 000207 

1178 gveop. oxo 
ts Ae a 
1 16709 1211 
1 1 

1421 121 

1421 te 177 

1 76 31 

14 7? tg 
1 7? 

1S BEY ora 
38 Bi 


MACY11 30A(1052) 


012332 


012236 


012236 


012230 


012204 


012160 


012134 


F 4 
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;LOAD REM. STATUS 


GOT THEM ALL? 
- GET THE REST 


; SUBROUTINE TO REPORT A OF EACH PORT WHICH HAS ANY 


10=MAR=80 
HOST=REMOTE EXERCISE 
MOVB = @SPDR, (R1) + 
ADD #3, aSPAR 
DEC CNTR 
BNE PORCN 
PORXT: TST PORN 
BNE 1$ 
18: Abe ROTALY 
BIS #304, aCSR 
RTS PC 
“REMOTES ATTACHED AND R 
REPORT: MOV #12,LINLEN 
MOV #EXTBL1,R1 
MOV tite CNTR 
BEQ REPO 
MOV 
JSR PC“ PRNREM 
REPO: MOV #EXTBL2,R1 
MOV (R1)+, CNTR 
BEOQ REP} 
MOV #1,PORN 
JSR PC“ PRNREM 
REP1: MOV #EXTBL3,R1 
MOV (R1)4*, CNTR 
BEQ P2 
MOV #2,.PORN 
JSR PC /PRNREM 
REP2: MOV #EXTBLS RI 
MOV (R1)+, CNTR 
BEQ Pz 
MOV #3, PORN 
JSR PC /PRNREM 
REPS: ARTS eC 
TINE TO 
ty POINTS AT FIRST REMOTE # 
= PORT # 
TONTR = # OF REMOTES ON THIS PORT 
PRNREM: PNTM = PORTS 
MOV #PORTMS ,RO 
JSR PC. TYPOUT 
MOV 
JSR PC oc TPwt 
PREMO: MOV (R1i)* RO 
BIC #1774660.R0 
e RAUP 
DEC Cntr 
BEQ PRE 
DEC LINLEN 
BNE PRE 


sALLOW 11(DEC) REM'S PER LINE. 
:GET PORT TABLE 


Be Be 
aad 


OAD ° 
:GO PRINT REMOTES OM THIS PORT 


:GET # OF REMOTES 
NONE HERE, NEXT PORT 


GO PRINT REMOTES ON THIS PORT 


GET # OF REMOTES 
NONE HERE, NEXT PORT 


:GO PRINT REMOTES ON THIS PORT 

GET # OF REMOTES 

:NONE WE'RE DONE 

GO PRINT REMOTES ON THIS PORT 
TURN WHEN DONE 


DO THE ae Be PART OF PORT CONFIGURATION REPORT. 


;PRINT “PORT @ 

PRINT MESSAGE 
POINTED TC TC BY PORTMS 
PRINT It 

:GET REMOTE @ 

CLR when BYTE 

‘CHECK fon CNTRL CHARS 


sEmIT IF a 


FILLED A tine 


SEQ 0044 


CZCMJAO_ CMR-11 
CZCMJA.P11 


2045 


— 


w 


HOST EXERCISER 
06 80 


MESSRS NS 
8 
Ssss 
neces sreenee 


—_ 


Be 


MACY11 30A( 
HOS 


012034 


012002 


011756 


011732 


011764 
011752 
011740 
011726 


011554 


PREM1: pee 


PREML: MOV 
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ole LINEN YES, RESTORE LINLEN 
PC. TTO ; CARRIAGE RETURN 
#10,CLK ‘SPACE PAST PORT # 
#40.RO 
PC,TTO 
CLR 
PREM1 
PREMO 
#15,RO ; ANOTHER <CR> 
PC_TTO 
#12,LINLEN 

yAND RETURN 


NE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE 


; SUBROUTI 
sENTER WITH 


3 


DIAGO: 


anez325252358 


DIAGOO: 


% 


Ooooer 
ranean 
“yw 


DIAG!: 


DIAG10: 


PELE Bes 4 


gesz5 =F 


% 


DIAG2: 


g 


o~cuvtw 
3 5 


REMOTE # IN 'REMNO’’ 


#20, CLK ;SET UP TO LOAD REQUEST 
#DATBL .R2 
aSPAR ;ADDRESS REQ SCR PAD 
#100 @SPDR SLOAD ‘DIAG’ FUNC 
#22,aSPDR ;DATA LEN. = 22 
aSPAR 
#1, aSPDR ;ONE REQUEST 
aSPAR 
REMNO, @SPDR ;LOAD REMOTE # 
(Re) @SPOR ;LOAD DATA PATTERN 
DIAGO 
PC, SCALM sCLEAR ALARMS ETC. 
wads, [CLR TOP BYTE 
#800, acSR [SET START FUNC. 
WRG ac iF 
DIAG! 
Pt SCALM 7NO, WAIT FOR IT 
#1000, aSPAR ZADDRESS RESULT SCR. PAD 
#100, 6000 [RIGHT FUNCTION? 
asPDR BAD 
DIAGS 
\N. DIAGF ZERROR:DIAG FUNC GAVE FUNC CODE 
peeeeses ERROR 52 eeeceee 
#814,aSR 
.*20 
@DIAGF .RO 
#52, ERRNUM 
PC DERR 
nef 
BiAGoS 
.SCPRIN 


#2 ,@SPAR CHECK FUNCTION STATUS 
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2073 014564 012767 001274 MOV #1,GO0D ySHD SHOW SUCCESS 
2074 014572 017767 01 1344 001976 MOV SPDR, BAD 

2075 014600 026767 00126 3 001262 CMP GOOD ,BAD 

2076 014606 001460 BFO DIAG 0.K. 

2077 014610 DATERR \N,DIAGUF ;ERROR:USOF WRONG ON ‘DIAG'’ FUNC 
2078 p*teenee ERROR 53 eeheeen 
2079 014610 032777 040000 011526 BIT #B14,aSR 

2080 014616 001007 BNE +20 

2081 014620 012700 024766 MOV #DIAGUF ,RO 

2082 014624 012767 000053 001232 MOV #53, ERRNUM 

2083 014632 004767 001144 JSR PC, DERR 

2084 000054 N : Ne 

2085 014636 032777 040000 011500 BIT #B14,aSR ;PRINT ALLOWED? 
2086 014644 001036 BNE DIAGSS Pp 

2087 014646 PNTM —— REMSG :PRINT REMOTE a’ 
2088 014646 012700 022342 MOV #REMSG,RO [PRINT MESSAGE 

2089 014652 004767 001554 JSR PC, TYPOUT :POINTED TO BY REMSG 
2090 014656 005277 011456 INC @SPAR 

2091 014662 017700 011454 MOV @SPDR ,RO :GET fem NO. 

2092 014666 004767 002502 JSR PC ,OCTPNT TIT 

2093 014672 PNTM —s STATEM {PRINT “STATE °' 
2094 014672 012700 022355 MOV #STATEM,RO :PRINT MESSAGE 

2095 014676 004767 001530 JSR PC, TYPOUT [POINTED TO BY STATEM 
2096 014702 005277 011432 INC a@SPAR 

2097 017700 011430 MOV @SPDR RO 3GET STAE OF REMOTE 
2098 014712 004767 002456 JSR PC ,OCTPNT 

2099 014716 PNTM —_— USORM :PRINT ‘USOR = 

2100 014716 012700 022367 MOV #USORM, RO [PRINT MESSAGE 

2101 014722 004767 001504 JSR PC, TYPOUT :POINTED TO BY USORM 
2108 014726 005277 011406 INC 

2103 014732 017 011404 MOV @SPDR ,RO 

2104 014736 004767 002432 JSR PC OC TPNT 

2105 01474 DIAG3S: SCOPE DIAGOO 

3106 014742 004567 000560 JSR R5,SCPRIN 

107 014746 4432 DIAGOO 

2108 014750 052777 000020 011320 DIAG4: BIS #804 ,aCSR :CLEAR TOP BYTE WHEN DONE 
3109 014756 RTS PC 

3113 .SBTTL MAINTENANCE ROUTINE 

1 

siz 7 THIS ROUTINE WORKS LIKE ODT BASISALLY BuT 

2115 [ONLY ON THE CMR-11 SCRATCHPAD ME 

116 ;THE REQUEST SCR. PAD MAY BE L TREAD 

1 7 TYPING ‘G’* CAUSES EXECUTION OF THE FUNCTION 

118 it . COMPLETION OF THE FUNCTION C S 

119 [THE FIRST LOCATION OF THE RESULT SCR. PAD 

120 : TO BE PRINTED. 

121 7 THE CMR-11 CSR MAY BE EXAMINED BY TYPING 

1 4 ; ITS BUS ADDRESS FOLLOWED BY SLASH (/) 

1 ; EXIT IS ACHIEVED BY TYPING CNTRL~C 

1 :0R ao TO PROCEED TO THE POINT AT WHICH THE 

; ZMAIN PROGRAM WAS INTERRUPTED. 

127 014760 112767 177777 011 ODTPR: MOVB #-1.DBFLG 

128 014766 017767 011306 SEL: MOV aC SR, SAVEC 
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Sel td HOST EER A SER MACY11 "aa lnetbn 10=MAR-80 
CZCMJA.P O6-MAR=80 15:1 NTENANCE ROUTINE SEQ 0047 
2129 014776 PNTM _—DBAID :PRINT ''CMR=11 DEBUG AID"’ 
2130 014774 012700 020507 MOV #DBAID,RO SPRINT MESSAGE 

2131 015000 004767 001426 JSR PC, TYPOUT :POINTED TO BY DBAID 
2132 015 005067 011252 $0$: CLR ADDR 

2133 015010 016767 011246 002330 $i$: MOV ADDR , KBBUF :GET ADDRESS 

213% 015016 00476 001452 JSR PC, INPKB ; FROM KEYBOARD 

2135 015022 016767 002320 011232 MOV FAD 

2136 015030 026727 011226 001777 CMP ADDR, #1777 WITHIN LIMIT? 

2137 015036 101423 BLOS $2$ YES, O.K 

2138 015040 026767 011216 011230 CMP ADDR, CSR ‘IS [7 THE CSR? 

2139 015046 001012 BNE $10$° NO 

2140 015050 017700 011222 MOV acSR,RO 

2141 015054 004767 002342 JSR PC,OCTUJSP ZYES, SHOW CONTENTS OF CSR 
2142 015060 012700 000015 MOV #15,RO 

2143 015064 004767 002610 JSR PC,TTO 

2144 015070 000167 177710 JMP $0$ 

2145 015074 $10$: PNTM AGAIN 

2146 015074 012700 020371 MUV #AGAIN,RO ;PRINT MESSAGE 

2147 015100 004767 001326 JSR PC, TYPOUT ‘POINTED TO BY AGAIN 
2148 015104 000741 BR $1$ 

2149 015106 105767 011144 $2$: TSTB  SLFL :SLASH HIT? 

2150 015112 001042 BNE $11$ :YES DUMP DATA 

2151 015114 105767 011132 TSTB —- GOFLG :"'G'' TYPED? 

2152 015120 001462 BEQ $20$ 

215 015122 052777 000020 011146 $2a$: BIS #804 ,acSR “INSURE TOP BYTE CLEAR 
2154 015130 005077 011204 CLR aSPAR TADDRESS FUNC. CODE 
2155 015134 027727 011202 000151 CMP @SPDR #151 :1S FUNC NOT MAINT? 
2156 015142 101404 BLOS $3$ Z1T*S NOT MAINT. DO IT 
2157 015144 052777 000200 011124 BIS #807, aCSR SIT IS MAINT, SET ‘MAIN’ 
2158 015152 000403 BR $4$ 

2159 015154 052777 000001 011114 $3$: BIS #800, aCSR ZSET ‘'STFUN’ 

2160 015162 032777 100000 011106 $4$: BIT #815. acSR [1S THERE AN INTR? 
2161 015170 001003 BNE $5$ TYES, SEE WHAT IT JS 
2162 015172 004767 000744 JSR PC MONIT 

2163 015176 000771 BR q 

2164 015200 012767 001000 011054 $5$: MOV #1000, APDR ;ADDRESS RESULT 

2165 015206 O12 000015 MOV 15,R0 

3166 015212 904767 002462 JSR PC_TTO :D0 <CR> 

167 015216 0004 BR $2is 

2168 015220 016777 011036 011112 $11$: MoV ADDR, @SPAR ;LOAD "‘ADDRESS'* 

169 01 206 017 11110 MOV asSPDR :GET "‘CONTENTS’* 

170 01 00476 164 JSR PC OC TUSP SAND PRINT IT 

171 015236 PNTM : SPACE AND PROMPT (:) 

17 91 % 12700 % MOV #TWOSP RO [PRINT MESSAGE 

1 15242 76 1164 JSR PC, TYPOUT [POINTED TO BY TwOSP 

17% 01 17767 011 002072 MOV @SPDR , KBBUT 

175 01 767 1214 JSR PC, INPKB :GET KBD INPU 

176 1 016 011054 MOV KBAUF ,@SPOR LOAD ANY ay INPUT 

17? 105767 1076 $20$ Ise In F it INE FEED? 

179 01 905 7? 010762 INC ADDR z1F YES. INCREMENT ADDRESS 

180 01 1 10756 $218: MOV ADDR RQ 

181 ! 177 COP Trl VALID ADDRESS? 

183 0° 00016 177556 IMP sics iO 005. GET A NEW ONE! 

184 01 004767 00205 $22%: JSR PC OC TPNT SPRINT NEw ADDRESS 
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#*7/,RO ;PRINT A SLASH 


2 JMP :G0 PRINT CONTENTS 
o1orne iSLASH TYPED? 
$0 iNO, CHECK IF IT'S ‘P" 
177650 JMP ZYES. SHOW CONTENTS 
010703 P*’ TYPED? 
NO, MUST BE <CR> 
010670 2G" TYPED? 


iYES, START FUNCTION 


010657 $25$: DBF CLEAR DEBUG FLAG 
010720 ANY PROMPTS PENDING? 
$24$ NO, JUST RETURN TO CALLER 
010712 MOV PCONT, (SP) :YES, RETYPE PROMPT. 
$248: PC [UNOFFICIAL RETURN 


-SBTTL UTILITY ROUTINES 
ROUTINES TO SAVE AND RESTORE GENERAL REGISTERS 


CALLED BY JSR R5,REGSAV . 
AND JSR R5.REGRES 


Mronononoenorenononononoforfnorefernn Oo 
ad aa aad ed cad cd cd ce ct ae etl a ct ed 
SESPSPSRSEZENSS. § 


R28 


R4,~(SP) 


— > I 


; THROW AWAY OLD RS VALUE 


EFFLFLF XXXL XLF 
RENSKRNY SRRVSK 


0 
0 
0 
0 
9 
0 
0 
0 
0 
0 
0 
0 
0 


— so ss 


sROUTINE TO SET LSI~-11 FLAG (SOFTWARE) 
177777 010602 LSTST: MOvB #-1,LSIFLG SET LSI-11 SOFTWARE FLAG 
RTI 7 RETURN 


ZROUTINE TO SET SOFTWARE SWITCH REGISTER FLAG 
Bs767 10666 SRTST: MOV #SSuR , SR NO HARDWARE SWR, USE 
12767 999398 bioeee MOV a~1, SWRFLG ; MEMORY LOCATION 
RT] : AND SET FLAG 
SROUTINE TO PRINT ILLEGAL DEVICE ADDRESS 


012706 DVATST: MOV #1SP,SP :F IX THE STACK 
AD PRINT NONEXST ADDR MSG 


INVL 
2 MOV #INVLAD ,RO PRINT MESSAGE 
bo 767 sr JSR PC, TYPOUT :POINTED TO BY INVLAD 
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015502 000167 164404 JMP PROMT :GO GET CORRECT ADDRESS 


sROUTINE TO REPLACE HALT WITH CALL TO SW MONITOR 
20N NON SWR PROCESSORS (CALLED BY MACRO 'HiT"’) 


SWHL T : SWRF LG ANY HARDWARE SWR? 
B 1$ TF YES, GO HALT 
PC, SWDMP :1F NO, DUMP SWITCHES 
PC : ONT INUE 
1$: HAL REAL HALT 
PC ; CONT INUE 


sROUTINE USED FOR LOOPING ON ERROR ROUTINE (CALLED BY MACRO ‘'SCOPE’’) 
SCPRTN: JSR PC,MONIT CHECK FOR mf OR *C 
TST asR : 


ee 


:GET rile FOR SCOPE LOOP 
010570 :SwW 13 SET? 


:NO, DON'T LOOP 
mov YES, RESTORE RS 
SCONT: [UPDATE ERR CNT IF "FALL THRU’ 
BNE [WATCH FOR ERRCNT OFLO 


MOVB SET OVERFLO FLAG. 
SCORTN: RTS 5 ZAND RETURN 


SIBRESLRRSS 


~S 
oa 


sROUTINE TO GENERATE CSC DEVICE ADDRESSES FROM ‘DEVADR'’ 
DEVGEN: MOV VADR ,RO GET DEVICE CSR ADDRESS 
MOV CSR GENERATE CSR 


»SP. SPAR ZGENERATE SPAR 
* SPDR ZGENERATE SPDR 
CTOR.RO 

#340,2(RO) 


Ree 
s222525 


~ 
ow 


;RETURN 
CATCH ERROR TRAPS TC LOC 4 


:SAVE STACK FOR ADDR 
:RENEW § 


PRINT ME SSAGE 
:POINTED TO BY TRP4 


So oo 
ia «ad 
NH fo 


sPRINT SOURCE OF TRAP 
jREFRESH STACK POINTER 


et ts ss 1s st 


Bt S359 


a2u8eud222 


SceRoke 


pope lo lolaleleololajloj=) 
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ERROR ROUTINES: REGULAR ERRORS AND DATA ERRORS. 


(SP) ,ERRAD GET ADDRESS OF ERROR CALL 
#26, ERRAD SCORRECT IT 

RO, -(SP) + STACK FRROR MSG ADDR 
ERRM :PRINT RROR ' 


#ERRM, RO PRINT MESSAGE 

PC. TYPOUT “POINTED TO BY ERRM 

Pc OCTPNT :PRINT ERROR NO. (P) 
WDAT :PRINT AT LOC. 

MUDAT RO PRINT MESSAGE 

PC, TYPOUT {POINTED TO BY WDAT 
ERRAD ,RO 

PC,OCTPNT ;PRINT ADDRESS OF ERROR 
(SP)+, [GET ADDR OF ERROR MSG 


PC, TYPOUT [PRINT ERR 
PC ; RETURN 


(SP) ,ERRAD GET ADDRESS OF ERROR CALL 
#26, ERRAD ;CORRECT IT 

PC,ERR1 

WDSDB 


#lD SDB, RO [PRINT MESSAGE 
PC, TYPOUT ‘POINTED TO BY WDSDB 
GOOD ,RO 
PC ,OCTPNT PRINT GOOD DATA 
WDWAS :PRINT WAS ° 
MDWAS , RO SSAGE 
PC, TYPOUT POINTED TO BY WOWAS 
PC, OCTPNT :PRINT BAD DATA 
PC > RE TURN 

;RELATED STORAGE: 

ERRAD: .WORD 0 

ERRNUM: WORD 8 

GOOD: . WORD 

.WORD 0 
ZASSOCIATED ASCII (ONLY SOME OF IT) 


-ASCI] = /€8**ERROR @/ 
ASCII / AT LOC. @/ 
~ASCI] /BSHOULD BE @/ 


ASCII /, WAS @/ 
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CZCMJAO_CMR=11 HOST EXERCISER 
13 UTILITY ROUTINES 


CZCMJA.P11 06-MAR=80 15: 


Seer 016140 040040 
-EVEN 


~SBTTL ‘‘SWITCH’’ MONITOR ROUTINE 


sENTER AT MONIT FROM EVERY SUB-TEST TO SEE IF CNTRL=S OR CNTRL=-C WAS TYPED 
ENTER AT SWDMP_FROM ERROR HALTS IF Sw 15 = 0 
;ALSO MONITORS THE FOLLOWING CONTROL FUNCTIONS: 

CNTRL=P CONTINUE (PROCEED) 

CNTRL-O GO TO CMR-11 DEBUG ROUTINE 


016142 , CLR 
010224 TSTB : CHECK KEYBOARD FLAG 
BMI :1F SET, CHECK WHAT CHAR, 
OTHERWISE, EXIT 


@KAD RO 

#177600,RO ;TRIM OFF PARITY BIT 
RO,423 “WAS IT *S? 

EX] 

SWRMSG 

#SWRMSG RO 

PC, TYPOUT 


MESSAGE 
: POINTED TO BY TWOSP 
arn OLD SWITCHES 
OAD RETURN ADDRESS 
GET KBD INPUT 


ZLOAD NEW SWITCHES 
ZPRINT “CNTRL-P TO CONTINUE" 
:PRINT MESSAGE 

PC, TYPOUT :POINTED TO BY TYPCTP 


akBS 
CONTW1 


000144 
010102 


010072 
177 : TRIM OFF PARITY BIT 


00002 
eyes. GET SWR AGAIN 

000020 RO,#20 

15 £15 RO ND, KEEP, LOOKING 
$04 350 F 
000024 : a :was A “T TYPED? 
002000 wes. STACK 
166166 JMP BCON “BACK 1 DISPATCHER 
00001 : : WAS CNTRL=0 TYPED? 
176400 ZAND GO TO DEBUG ROUTINE 


000003 : zWAS CNTRL-C TYPED? 
BNE ;NO. 





CZCMJAO_ CMR=11 HOST Jig 
06-MAR-80 


CZCMJA.PT’ 15:13 
2409 016366 012706 002000 
2410 016372 000167 164136 
2411 016376 020027 000006 
2412 016402 001012 
2413 016404 105767 007641 
2414 016410 001007 
2415 016412 105767 007637 
2416 016416 001004 
2417 016420 005067 007672 
2418 016424 004767 000316 
2419 016430 000207 
2420 
2421 
2402 
24,23 
240% 

2625 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2635 
2436 
2437 016432 010046 
2438 016434 117600 000000 
2439 016440 022700 000100 
2440 016444 001411 
2441 016446 022700 000046 
e442 016452 001002 
2443 016454 012700 000015 
2444 016460 004767 001214 
2445 016464 005216 
2446 016466 0007 
2447 016470 005726 
24648 016472 
2449 
2450 
2651 
245 
245 
2454 
2458 
56 e 
3457 
58 016474 005067 000644 
2659 016500 010146 
Q16302 016746 gongs 
1 016806 34 
16512 004767 00216 
2463 016516 004767 001156 
2604 01652 000012 
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H'* MONITOR ROUTINE 


MOV #ISP,SP YES, REFRESH STACK 
JMP BCONT : AND RESTAR 
EX4: CMP RO, #6 WAS IT ed 
BNE EX5 “NO, EXIT 
TSTB —DISFLG 1S DEBUG FLAG SET? 
BNE £X5 ‘YES, JUST RETURN 
TSTB —- SAFE SALREADY IN FILL RTN? 
BNE EXS ‘YES, JUST RETURN 
CL PCONT SCLEAR PROMPT CARRIER 
a JSR PC KBRET : SNEAK INTO FILL COUNT ROUTINE 


.SBTTL MESSAGE PRINT ROUTINE 
MESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A) 
[MESSAGES ARE IN THE FORMAT: 
> MESG: ASCII /@ME SSAGE&@/ 

“WHERE: & IS TRANSLATED INTO CR. AND LF. 

[USES THE SUBROUTINE ‘‘TTO’’ 

[WHICH PRINTS CR. & LF. UPON SEEING A CR. CODE. 
ZAND @ -IS MESSAGE TERMINATOR 

TENTER WITH ADDRESS OF MESSAGE IN RO 


TYPOUT: MOV RO,-(SP) STACK ADDRESS OF MESSAGE 


TPOF CH: MOVB a(SP) ,RO FETCH ASCII BYTE 

CMP #100,RO 31S IT @ (TERMINATOR)? 

BEQ TPOUTX . éYES~EXIT 

CMP #46,RO 21S IT CRLF FLAG? 

BNE TPCONT :NO-T YPE CHARACTER 

MOV #15,R0 YES, CHANGE DATA TO CR 
TPCONT: JSR PC,TTO TYPE IT 

INC (SP) ;MOVE POINTER TO NEXT BYTE 

TPOF CH FETCH NEXT CHARACTER 


BR 
TPOUTX: TST (SP)+ ;POP STACK TO REACH RETURN VECTOR 


-SBTTL KEYBOARD INPUT ROUTINE 


;KEYBOARD INPUT ROUTINE CALLED BY JSR PC. INPKB 
ZENTERED WITH OLD CONTENTS IN KABUF 

71F JUST CR TYPED, EXIT WITH SAME CONTENTS IN KBBUF 
TIF NEW NUMBER TYPED, EXIT WITH NEW CONTENTS IN KBBUF 


INPKB: (CLR NOKEFL ZCLEAR NO NUMBER FLAG 
MOV R1,~-(SP) :STACK OLD RI 
MOV KBBUF , = (SP) STACK "OLD CONTENTS'’ 
CLR KBBUF ‘Clean INPUT BUFFER 


GETCHR: JSR PC ,.KBRD FETCH A CHARACTER IN RO 
JSR = ECHO IT 
CMP 1 sWAS IT A CR OR LF? 


SEQ 0052 
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2465 
by 000154 


177407 
000060 


000177 


7NO, MUST BE 
000057 "YES, BUT PRINT ‘\'' 
001112 

“CLEAR THE (-8I1T 


000552 ROR DELETE LAST DIGIT 
000544 3; THAT WAS STUFFED 


000536 ROR ; _INTO KBBUF 
000532 one — WE DELETED EVERYTHING? 


‘YES, BACK TO NO NUMBER INPUT 
:GO FOR MORE INPUT 
“ECHO 'BELL’’ FOR ERRONEOUS INPUT 


THEN *°2"* 


por 
SASS 
_aN™N 


;AND GET ANOTHER — 
;GOT A DIGIT. SET FLAG 
RO :GET THE DIGIT PART OF THE CHARACTER 
T KBBUF BUFFER 


Oo 


WAS THERE NEW DATA? 
YES. GO BACK WITH IT 
RETRIEVE OLD DATA 


(SP)+,21 
PC 


KEYBOARD READ ROUTINE 
{CHECKS FOR THE FOLLOW! 
CNTRL=C 


AL RE 
OR UNLESS IN INITIAL DIALOGUE. 
CLOSE LOCATION 


oe oe ae ew = — wt ot 
O@wO WwW Oo 


RETURN AND CONTINUE 
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105777 KBRD : ;WAIT FOR INPUT FROM CONSOLE 
100375 BP 


;PUT THE CHAR INTO RO 
KBRET: ;CLEAR FLAGS 


; TRIM PARITY 
;WAS “C_ TYPED? 
YES, RESTART PROGRAM 
;DON'T ALLOW “F IN *DEBUG"’ 
= CNTRL<F TYPED? 
ALREADY IN rath CNT RTN? 
:NO, SAFE TO EN shat 

;YES, IGNORE CHARACTER 
:PRINT “FILL COUNT = °° 


T MESSAGE 
:POINTED TO BY FILMSG 
SET FLAG 


; SHOW re COUNT 
SPACE AND PROMPT 


;PRINT MESSAGE 
;POINTED TO BY TWOSP 


:GET NEW COUNT 
:T00 BIG? 


NO GOOD. GET IT AGAIN 
;PRINT MESSAGE 
POINTED TO BY AGAIN 


$ 
a 2 35 
$48982585 


3P 
32 


835828958 


~ 
wn 
@ 


S "DEBUG FLAG SET? 
tee CHE CK SOAS OTHER FLAGS 
ZCNTRL =O TYPED? 
iter | opT $_ LOWED 


PCON OR 
rT cneaten THAN PRIORITY 


WAIVIIIIVIIIAIVAIIIIIZ 


BARS AAA RR Rr aeaaer rarien reat t 
bit as tad 


me a et at a st ss YH SS YY OD OS 


01 
0 
0 
0 
0 
0 
0 
0 
0 
0 
76 


3 
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7$ NOT A — FEED. 
000015 #15,RO i CHANGE 1 TO C.R. 
177777 work INCF 31T WAS, SEF INCR FLAG 
000070 RTN AND LEAV 
000057 : m0, A'/ ;WAS it A SLASH? 


8 
177777 #=1,SLFL YES, SET SLASH FLAG 
000406 PC,TTO ECHO THE SLASH 
016710 ANRTRN, (SP) 


iN EXIT. 
000107 : Calli ;WAS ‘'G'’ TYPED? 
177777 “YES, wT *'GO’’ FLAG 
000362 PC, TT TECHO THE ‘'G’’ 
016710 
000120 9$: RO,#'P :WAS 'P’' TYPED? 
ZNO, EXIT 
177777 #-1,CONFLG sYES, SET ‘'CONTINUE'’ FLAG 


016710 MOV #NRTRN, (SP) 
KRTN: PC 


sASSOCIATED VARIABLE STORAGE : 


NOKEFL: .WORD 0 
000000 KBBUF: .WORD 0 
000010 FILL: .WORD 10 
000000 


FLCNT: .WORD 0 
04 3046 FILMSG: .ASCII /®FILL COUNT = @/ 
047503 
020075 
017374 EVEN 
.SBTTL BINARY TO ASCII CONVERSION ROUTINES 
Z CONVERTS BINARY TO BINARY, BINARY TO 
TOCTAL, AND BINARY TO DECIMAL: EITHE 
sURUUSH IFIED WITH LEADING ZERO'S SUPPRESSED 
3OR RIGHT JUSTIFIED WITH LEADING O'S 
: SSED 
;REGILAR BIN-OCTAL UNJUSTIFIED: 
17376 OCTPNT: REGSAV 
JSR 


sBIN-OCTAL JUSTIFIED: 


Hogs OCT JSP: r* ed 


017% RS .REGSAV 
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012767 177777 000330 #-1 ,RJFLG SET RIGHT JUSTIFY FLAG 
012701 000010 MO #10,R1 SET RADIX FOR OCTAL 
004767 000126 JS PC ,NUMPNT CONVERT & PRINT 


004567 175752 S RS ,REGRES 
017450 000207 PC 


017452 
175730 SR RS ,REGSAV 
000302 RJFLG :CLEAR RIGHT JUSTIFY FLAG 
000002 #2,R1 SET RADIX FOR BINARY 
000100 JS PC ,NUMPNT CONVERT & PRINT 


175724 RS ,REGRES 
PC 


s;BIN-DECIMAL UNJUSTIFIED: 


DECPNT: REGSAV 
JSR 


175702 R5 ,REGSAV 
RJFLG 


#12,R1 
PC .NUMPNT 


175676 SR ~ Sat 


;BIN-DECIMAL JUSTIFIED (6 PLACES) 
DECJSP: REGSAV 

175656 JSR RS,REGSAV 

177777 #1, RIFLG 

00001 #12-R) 


PC .NUMPNT 
RS ,REGRES 
PC 


RO 
PC,TTO 
PC:TTO 
PC 
[UNSIGNED CONVERT-PRINT ROUTINE (BIN = ASCII) 
NUMPNT: MOV R1, RADIX 
CLR 
DIVSET: CLR R 
DIVID: (MP RO, RADIX 
BLO GE fDG 
SUB 


INC 


2654 
2656 
2658 
2660 
2661 
ss 
2664 
2665 
2666 
2667 
a 
4 
267 
26 
2676 
ee 
He 
8 
1 


1 
1 
1 
1 
1 
1 
1 
1 


BS 


4 4 2 


ooo 
or 
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CZCMJA.P11 O6-MAR=80 15:13 BINARY TO ASCII] CONVERSION ROUTINES 


GETDG: RO,=(SP) STACK REMAINDER 
MO R1,R0 


PNTEXT ;PRINT IF HIGHEST ORDER STACKED 
R2 ‘ELSE COUNT DIGITS FOR R. JUSTIFY 
177744 PC ,DIVSET 


#6,R3 :GET DIGIT COUNT CONSTANT 

R2.R3 HAVE WE PRODUCED 6 DIGITS? 

PNT :YES. JUSTIFICATION UNNECESSARY 

RJFLG S THE JUSTIFY FLAG SET? 

PNT ‘ NODON’ T JUSTIFY 

#40,RO ‘YES, PRINT LEADING SPACES 

PC, TTO 

R3 

JUST 

RJFLG iCLEAR JUSTIFY F 
PNT: (SP)+,RO ‘GET REST OF DIG 

BIS #°0,R0 [MAKE THEM ASCII 

: TYPE OUT ROUTINE 


PRINTS A CHARACTER WHICH IS IN RO 
:1F THE CHARACTER IS ‘'CR.**, ALSO PRINT A ‘LF."'. 


LG WHEN DONE 
ITS OFF STACK 


006474 TTO: MOV RO,aTTB :PRINT CONTENTS OF RO 
006472 TTOLP: TSTB a! TTs sWAIT TILL PRINT DONE 


TTOLP 
000015 CMP #15,R0 :WAS IT A CR? 
BEQ TTOLF YES, ECHO A LF AS WELL 
RE TURN 


RTS PC :NO, JUST 
000012 : MOV #12,R0 : 
177746 JSR PC,TTO sECHO A LINE FEED 
177412 177612 FILL, FLONT [PRINT NULLS FOR FILL 


177730 : PC; TTO 
177376 FLONT 


000012 #12,R0 7; THEN RESTORE RO 
PC ZAND LEAVE 
;ASSOCIATED VARIABLE STORAGE: 


RJFLG: WORD 8 
RADIX: WORD 


-SBTTL CONSTANTS, VARIABLES & ACSI! 


sASCII MESSAGES: 
eASCII /OCZCMJAO CMR=11 HOST EXERCISER = 14=JAN-80/ 





CZCMJAO_CMR=11 HOST 
czc 06-MAR 


MJA 


2778 


3 


MNT 
Seasasss 





SSLHFRIIIESS 


PI 


oo 

Wu 

WNW 
Rroseee 


REEF 
fF222 


SS 


N 


Bare 
ER 


— 
=—™ 


— 


33 


a 
™N 


ets 
-80 1 
265 


—_s (wD 


YVINOONMESNMVMNMOO 


RR KRRAGGRR SRR 


042440 
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MACY11 30A(1052) 10=MAR=-80 14:09 PAGE 50 
CONSTANTS, VARIABLES & ACSII 


Oooo 


oo- 


Ss oo 
BSS es 
as 

N WNUMOf-O-—-0 


Ss2es3sc 
A StH Gare | 
S22 


=n 


— 
zr 
wos —Ox 


ASCII 


ASCII 


ASCII 


ASCII 


-ASCII 


FRAD: ASCII 


AGAIN: .ASCII 


DVECT: .ASCII 


DVPRIO: .ASCI] 


DBAID: .ASCII 


/& #® CAUTION #88 / 


/ETHIS PROGRAM IS CAPABLE OF ALTERING THE STATE/ 


/@OF ANY FIELD EQUIPMENT ATTACHED TO ANY OF THE/ 


/@REMOTES ON THIS CMR-11./ 


/@&D0 NOT PROCEED IF FIELD HARDWARE IS STILL ON-LINE! &&a/ 


/RINTERFACE ADDRESS: a/ 


/ETHAT WON'T DO. TRY AGAING@/ 


/RINTERFACE VECTOR: @/ 


/@INTERFACE PRIORITY (4 TO 7): a/ 


/ECMR-11 DE-BUG AIDEZa/ 


SEQ 0058 


H_ 5 
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CZCMJAO_CMR=11 HOST EXERCISER 
CZCMJA.P11 O06-MAR=80 15:13 ONSTANTS, VARIABLES & ACSII SEQ 0059 


Ree 


SMNWOAANO 
~m 
st 


g56i9) INVLAD: .ASCII] /®INVALID ADDRESS...(1T'S NOT THERE) @/ 


050101 TRP4: -ASCII] /B8&TRAPPED TO 4 FROM LOCATION @/ 


oS 
Nm 
Oo 
S 
RERRG 


s 
NO 


N 
eee NMS O 


TWOSP: .ASCII /_ :a/ 
036440 SWRMSG: .ASCII /8SWR = a/ 


020105 TYPCTP: .ASCI] /&TYPE CNTRL=P TO CONTINUE@/ 


3 

wi 

Nm 
oo So 
vw WwW 
-—O — 
—— ae 
MW %~ 


TSTSEL: .ASCI] /@SELECT TEST (4=HELP) @/ 


—MOo — 


HELPM: .ASCII] /®&SELECT ONE OF THE FOLLOWING:&/ 


NEO rSowe oO 


on 


020770 
020771 046 gue; 047440 ASCII /@CR OR 1 = LOGIC TEST/ 


021016 0 020040 0 0 ASCII /8 2 


PORT LOOP=BACK TEST/ 


000000 oo 00 09 00 00 00 00 00 00 00 OO 
A MURR R RRO RRR Se SSeS eSSS 
Oo 
So 
Ww 
— 
™ 
™~ 
oa 
g 
o 
— 

Oo 
Ww 


Sooo 
BALE 
—) aed od 
— —s —D 
ws 
R =) 
Vash 
+: & 
re 
=] Oo 
Ww 
— 

N 
Ww 


ASCII] = /& 3 = (MR-11 EXERCISER/ 


RESECE 


i 


oo 
od 
Zo 
Sa& 


EREERESES 
3 


ASCII /8 4 = THIS HELP INFO./ 


z 
oO 
eee 
= 


3 


geggeggecgergereese 
SEE 
BR 
e 


030 : eASCI] /@CNTRL@C = TEST SELECT/ 
1440 


es ss 
WRFSELKSNELRK 


0308080803 0808 
RARINLS 


Rg 
Poxce 


E 
nM 
~~ 
SOovoo 
WV 


124 
051134 eASCI] /RCNTRL@S = Si] TCH OPTION SELECT/ 


®@. 
MACY11 30A(1052) 10=MAR=80 14:09 PAGE 52 
CONSTANTS, VARIABLES & ACSII 


S SS3S = 


7@CNTRL=F = CONSOLE FILL COUNT SELECT/ 


AREER 


7@CNTRL=O0 = DEBUG ROUTINE WHICH ALLOWS/ 


33 


So 
Ww 
w 


LOADING SCR. PAD AND STARTING/ 


FUNCTIONS AND EXAMINING THE/ 


aa 
BUReS 


/@ RESULTS/ 


g 


0 0 
052114 
051124 ° /@CNTRL=P = C F We TOR@/ 
30095 PROCEED FROM Sw. MONI TOR@ 


RAR 
Ves 


KRSSE 


046440 

051117 

044507 LGKTSM: .ASC / TEST 
092193 I] /@LOGIC TEST&a/ 


990056 SCPAD: .ASCII /@SCR.PAD ADDR = a@/ 


pee 062108 

1317 VERSM: .ASCI] /@8HOST FIRMWARE VERSION : @/ 
25 5 

55 se 

0 


2125 BAUDM: .AS RATES: a/ 
BeoRp Oe C11 /@@BAUD ES:a/ 


SRBE 


x 
P 
Ree 


g 
S 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


4 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
02 
Ge 
: 


2880 
2882 
2884 
2886 
2887 
2888 
2889 
2890 
2891 
oa 
289 

289% 
2895 
3 
2898 
2899 
si 
i 
2904 
2905 
es 
2911 
2912 


FEREE 
BLSSES 
Rok 
SVR 
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CZCMJA.P11 06-MAR=80 15: CONSTANTS, VARIABLES & ACSII 


021650 


Ww 
~ 
— 


020124 PORTOM: .ASCI] /&PORT #0 = a/ 
040040 

PORTIM: .ASCII] /8PORT #1 = a/ 

: .ASCI] /8PORT #2 = a/ 

: .ASCII /@PORT #3 = a/ 

-ASCII /8END PASS # @/ 


2s 
_ 
— 


g= 
— 
—_ 


uw 
— 
= 
SSS Me ke Re Ree 


ee eS 


oO 
ip) 
on 
— 


051122 : .ASCII / ERR. CNT = @/ 
020124 


042526 
025127 
020124 -ASCII /8PORT LOOP=BACK TEST&@/ 


WO WAONOCNONON 


eASCII] = /**OVERFLOW**@/ 


-ASCII = /&TYPE PORT # (<CR>=ALL): @/ 


NVWEKSos SoH 
EN—AWNN 


-ASCII /@TYPE <CR> WHEN READY: @/ 


sASCII = /&CMR=11 EXERCISE ROUTINES/ 


/@(GIVE ME A FEW MINUTES ALONE WITH THE REMOTES)@/ 


~N 
=} 


ARR 
3 


8 


NOREM: .ASCII] /@*** NO REMOTES ON HOST *=#@/ 


i 
w. 


¥o= 
—— ss 
~NO 


/@( I WILL KEEP LOOKING FOR ANY CHANGES )&a/ 


“ace 


~ 


29 
2932 
2934 
2936 
2938 
2939 
2940 
2941 
sore 
29% 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
$326 
295 
3935 Oca 34 
5960 
se 
S 





CZCMJAO CMR=11 HOST EXERCISER 
CZCMJA.P11 06-MAR=80 15:13 


PREP EE EER RES CR ert it 


nt a ss SS SS 


WN "SO O@NOUSWN Oo 





042507 


020123 
047520 
04004 





MACY11 ge fot 


023051 
052122 


—=NMOUU 


0 
2 
1 
5 
1 
0 


5 
10-MAR=80 14:09 pace 54 


ONSTANTS, VARIABLES @ ACSII 


PORTMS: .ASCII 
REMSG: .ASCII 
STATEM: .ASCII 
USORM: .ASCII 
REMCHG: .ASCII 


REMSTM: .ASCII 


REGMG: .ASCII 
IRRGMG: .ASCII 
ALROFF: .ASCII 


ERROR MESSAGES 
NOGO: .ASCII 


NOTUP: .ASCII 


CSRRST: .ASCII 


SPRCLR: .ASCII 


SPRDAT: .ASCI] 


/@PORT # a/ 

/@REMOTE # @/ 

/@STATE = a/ 

/®USOR = 

/&*** REMOTE STATUS CHANGE ***@/ 


/@REMOTE STATUS NOW @/ 


/ REGULAR@/ 


/ JRREGULAR@/ 
/@*** ALL REMOTES NOW IRREGULAR ***8a/ 


/ HOST MICRO FAILED TO START.@/ 


/ PWR-UP SEQUENCE NOT COMPLETE.(BAD CSR).a/ 


/ CSR REG. NOT RESET.@/ 


/ CAN'T CLR SPAR REG.@/ 


/ BAD DATA IN SPAR REG.@/ 


SEQ 0062 


L 5 
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CZCMJA.P11 06-MAR-80 15: CONSTANTS, VARIABLES & ACSI! 


peste) ISATE: .ASCII / REQ SCPD ADR IST ERROR.@/ 


™m 
So 
ab 


ASCII RESULT SCPD DATA TST ERROR.@/ 


RR GSRR 


oo 
MNONM— 
= 


-ASCII RESULT SCPD ADR TST ERROR.@/ 


MAA GREK GSES 
on One 
SANAUNSALOM 


oO 
gg 


ASCII REQ SCPD DATA TST ERROR.@/ 


RGR 

NNO = 
™Nm ronan 
= NSO 


RQSPCL: .ASCII REQ. SCPD NOT ALL 0°S.a/ 


oo 

~ 

osy 
—2— WW 


-ASCII RES. SCPD NOT ALL 0°S.@/ 


1 
2 
1 


g 
g 


ASCII “CLRTPB’’ FAILED TO CLR TOP BYTE.a/ 


R KISR 
3: 


N 


WRONG CSR FOR 'DIE’’ FUNC.@/ 


3 
NN 


SR SEL 
BE 


BAD CSR BITS WHILE HUNG.@/ 


ee 


CAN'T CLR LOW CSR WHILE HUNG.@/ 


BSS ARISES REC RER ESSE CTOY 


sane SPAVME: .ASCII ACCESSED REQ SCPD WITH *MAIN’® SET.a/ 
1 
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CZCMJA.PT1 = O6-MAR=B0 15:13 CONSTANTS, VARIABLES & ACSII SEQ 0064 
3081 32 021040 040515 047111 
$082 025440 020042 042523 027124 
3083 023446 100 a 
3084 OSere! 930 041501 042503 SPAVFE: «ASCII / ACCESSED REQ SCPD WITH ''STFUN’’ SET.a/ 
3085 023454 051523 042105 051040 
3086 023462 050505 051440 050103 
3087 023470 020104 044527 044124 
3088 023476 021040 052123 052506 
3089 023504 021116 051440 052105 
3091 023514 044040 051517 020124 NOINTR: .ASCII / HOST CAN'T INTERRUPT UNIBUS.@/ 
3092 023522 040505 023516 020124 
3093 023530 047111 042524 051122 
30% 025556 050125 020126 047125 
3095 023544 041111 051525 040056 
3096 023552 042440 051122 047117 ERINTR: .ASCII / ERRONEOUS HOST INTERRUPT.a/ 
3097 023560 047505 051525 044040 
3098 023566 051517 020124 047111 
3099 023574 042524 051122 050125 
3100 023602 027124 100 
3101 023605 040 051127 047117 WPODI: .ASCII / WRONG PRIORITY. DEV. IS HIGHER.@/ 
3102 023612 020107 051120 047511 
3103 023620 044522 054524 02005 
3104 025626 042504 027126 044440 
3105 023634 020123 044510 044107 
3106 023642 051105 040056 
3107 0 0 047522 020107 HITER: .ASCII / PROG INIT. FAILED TO INIT CSR.a/ 
3108 023654 047111 052111 020056 
$109 025662 040506 046111 042105 
3110 02 052060 020117 047111 
3111 023676 052111 041440 051123 
$112 023704 040056 
3113 023706 046440 041511 047522 VISF: ASCII / MICRO DIDN'T STORE VERSION NO.a/ 
S114 QB5714 042040 042111 02351 
3119 085722 20124 052125 05111 
3116 023 105 042526 051522 
3117 023736 047511 020116 047516 
S118 025744 040096 
3119 3746 031040 ohe1I6 aes VIDER: ASCII / 2ND VERSION INFO DIFFERS FROM PWR-UP.a/ 
$120 025754 051105 044525 04711 
121 023762 044440 043116 020117 
122 025770 044504 045106 051105 
12 77 020123 051108 046517 
13 12 271 ath Paes 
1 1 1501 042503 SPAVIC: .ASCII / ACCESSED RES. SCPD WITH INTR CLR.a/ 
197 951525 42103 BS1000 
1 051 1523 
1 36 0421 211} 
1 11 124 
131 1 0 
1 2060 16 STESTF: .ASCI1 / WRONG CSR WITH “'STFUN'.@/ 
133 024066 041 4 
134 4 95211 144 
$135 924102 043124 704 
136 411 100 
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CZCMJA.P11 O6-MAR=80 15:13 | CONSTANTS, VARIABLES & ACSII SEQ 0065 


eiel 024111 oF s4 RSPESF: .ASCI] / ‘MAIN’ RESULT FUNC. CODE WRONG.@/ 


os ey 
AROKDS 

So 
ye 
RARE 
So orn 
ERAS 
a | = 
Ww wv 
™m oO 
—~m 

™ 


Beesed USOFE1: .ASCII BAD USOF FROM ''STFUN’’ ON MAINT.@/ 


106 


= 
Rg 
oO 
Sia 
—~ 
= 
oO 
=_ 


g 

* 

& 
SERRERRLS 
g 

32 
leat o] 
g 


W 
— 

&* 
vi 
WM 
RN 

NW 


047117 STEMF: .ASCII 


~ 


WRONG CSR WITH *MAINT’’.a/ 


peso USOFE2: .ASCII / BAD USOF FROM 'MAINT’’ FUNC.a/ 


Eee =ySNE 
2 


viw 
wn 
# 
R 
a 
RU=ANRAINSR 
Ww o 
R 
N 
ey a ee ee Pee ee 
WES 
R 


g 
Ron 


00 
044501 DATLER: .ASCII 


~ 


"MAIN'’ FUNC GAVE BAD DATA LEN.a/ 


00 
042522 027123 RSPEMF: .ASCII / RES. FUNC CODE WRONG FOR ‘MAIN’’.a/ 


3169 
020104 USOFE3: .ASCII 


~ 


BAD USOF FROM ‘MAIN’’ ON REG FUNC.2/ 


vi 

y 

SEL 

Wo 

ett repent 

GNaNanss 
: 
: 


=~ 
So 
3 
as 
o 


9s 
043516 USOFE4: .ASCII WRONG USOF ON REGULAR FUNC.@/ 


ARRRKS 
Aor 


ssf 
RRL 
38S 


oo 


024274 
024314 
024322 
024330 
024336 
024341 
024354 
024362 
024370 
024376 047111 027042 100 
02440 
024410 
024416 
4G 
0244 
024446 
024454 
02 
o366) 
ose 208 PLFFE: .ASCII / TOTAL FAILURE ON ‘MAIN’ FUNCTION, @/ 


BR 
—88 Oo — 
Re 
BREEN 
_ 
BOER 
RRRRLE 
AIIZS.. 
— ty 
Qn 


— 
—b a 


— 


PLTXTO: .ASCII 


~ 


PORT XMTR TIMED OUT.@/ 


SOSSRVROKVVAV YH YH IRA AVSISSAAS 


AANAAANA.A.ANAAAIAAIAAIAIAANAIAWIAIAA 


=SoR 
~O— os 
— 

en 
8 = — 
® S5R 
~ 


SSEEFERS 
RB 
x= 
BERSGR 


PLRCTO: .ASCII PORT RCVR TIMED OUT.@/ 


CZCMJAO_CMR=17 HOST EXERCISER 
CZCMJA.P11 06 8) 15:13 
3193 024 041522 051126 052040 
194 024610 046511 042105 047440 
3195 024616 052125 040056 
1% raf 050040 051117 026524 
3197 0246 047514 050117 042040 
3198 024636 052105 041505 2524 
3199 024644 020104 040504 0524 
3200 024652 042440 051122 051117 
3201 024660 040056 
3202 024662 044040 051517 020124 
3203 024670 054523 020123 1105 
3204 024676 047522 027122 051040 
3205 024704 047125 046040 043517 
3206 024712 041511 052040 051505 
3207 024720 027124 100 
3208 024723 Oe eoes 040511 
3209 024730 021107 043040 047125 
3210 024736 020103 040507 042526 
3211 024744 053440 047522 043516 
3212 024752 043040 047125 020103 
3213 024760 047503 042504 040056 
3214 024766 052440 047523 0201 
3215 024774 051127 047117 020107 
3216 025002 047117 021040 044 
3217 025010 043501 020042 052506 
3218 025016 041516 040056 
3219 
3220 
3221 
3222 
3223 





Bariie bs1ce0 


MACY11 30A(1 
CONS 


PLDERR: .ASCI1 
SYSER: .ASCII 
DIAGF: .ASCII 


DIAGUF: .ASCiI 


; TABLE OF ASCII 


8D1 ASCII 
ee ASCII 
D3: ASCII 
BDS ASCII 
BDS ASCII 
ASCII 
-ASCII 


BD8: ASCII 


B 6 
052) 10-MAR-80 14:09 PAGE 58 
TANTS, VARIABLES & ACSI! 


/ PORT=LOOP DETECTED DATA ERROR.@/ 
/ HOST SYS ERROR. RUN LOGIC TEST.@/ 
/ *DIAG'' FUNC GAVE WRONG FUNC CODE .@/ 


/ USOF WRONG ON 'DIAG’’ FUNC.@/ 


STORAGE FOR BAUD RATES 


/ 300e0/ 
/ 


4/1 

4 24008/ 

44 / 

/ / 

/ *HIGH'' SPEED@/ 


/ SPECIAL’ SPEED@/ 


SEQ 0066 


C 6 
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CZCMJA.P11 06-MAR-80 15:1! ONSTANTS, VARIABLES & ACSII SEQ 0067 
3249 025136 042520 04211 100 
$520 025144 EVEN 
$2 DATA TABLE FOR MAINTENANCE AND DIAGNOSTIC FUNCTION 
3254 025144 000001 DATBL: .WORD 001 
3255 025146 000003 -WORD 003 
3256 025150 000007 . WORD 
3257 025152 000017 .WORD 017 
3258 025154 000037 -WORD 037 
3259 025156 000077 ~WORD 077 
3260 160 000177 .WORD 177 
3261 025162 000377 «WORD 377 
025164 000376 -WORD 376 
3263 5166 000374 -WORD 374 
25170 000370 -WORD 370 
3265 025172 «WORD 360 
025174 000340 «WORD 340 
3267 025176 300 «WORD 300 
025 000200 WORD 200 
3269 025202 WORD 
3270 
3271 
5 PORT CONFIGURATION STATUS TABLES. 
3274 025204 000100 EXTBL1: .BLKW 64. 
3275 0254046 000100 EXTBL2: .BLKW 64. 
3276 025604 000100 EXTBL3: .BLKW 64. 
eSoe 000100 EXTBL4: .BLKW 64. 
Sap TABLE FOR ORIGINAL (PWR-UP) VERSION DATA 
Se) 026204 000011 VERSP: .BLKW 9, 
SH ; TABLE FOR 2ND VERSION DATA 
3285 026226 000011 VERSUN: .BLKW 9. 
$a SOFTWARE FLAG BYTES 
3289 026250 000 _ 'FLG: .BYTE 8 
026251 000 “LG: .BYTE 
3291 § 000 GOFLG: .BYTE 
000 INCF : BYTE 
000 OFLOF: BYTE 
55 000 SAFE: YTeE 
000 SLFL: BYTE 
000 CONFLG: .BYTE 
si ONCE : F 
1 THRUF: BYTE 
-EVEN 
1 ; VARIABLES: 


aoe 
te 


ADDR: .WORD 8 
ALLFLG: .WORD 
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CZCMJA.P11 06=MAR=80 15:13 CONSTANTS, VARIABLES & ACSII SEQ 0068 


3305 026266 000000 :  .WORD QO 
3306 026270 000000 CHNGFL: .WORD QO 
3307 026272 000000 K: «WORD 0 
3308 926274 000000 CNTR: .WORD 0 
3 026276 000000 CSR: -WORD 0 
3310 026 000000 DEVER: .WORD QO 
3311 026302 000000 ERRCNT: .WORD OQ 
3312 026 000000 ITER: .WORD 0 
3313 026 000000 LINLEN: .WORD QO 
3314 026310 000000 :  .WORD 0 
3315 026312 000000 PASCNT: .WORD OQ 
3316 026314 000000 3 -WORD 0 
3317 026316 000000 PCONT: .WORD 0 
3318 026 000000 :  .WORD 0 
3319 026322 000000 PORT: .WORD 0 
3320 026324 000000 PRIO: .WORD 0 
3321 026326 000000 REMFLG: .WORD 0 
3322 026330 000000 REMNO: .WORD 0 
3323 026332 000000 REMTN: .WORD QO 
3324 0263 000000 REMST: .WORD 0 
3325 026336 000000 SAVEC: .WORD QO 
3326 026340 000000 SPAR: .WORD Q 
3327 026342 000000 SPDR: .WORD 0 
3328 026344 000000 : -WORD 0 
3329 026 000000 SWREG: .WORD 0 
330 026350 000000 SWRFLG: .WORD 0 
3331 026352 000000 TALLY: .WORD 0 
3332 0263 000000 TBLAD: .WORD 0 
3333 026356 000000 TEMP -WORD 0 
$ee¢ 026360 000000 VERFLG: .WORD Q 
335 026362 000000 D: .WORD 0 
3336 
3337 
$ee6 : CONSTANTS 
3340 026364 000170 VECTOR: .WORD 170 
3341 026366 164000 DEVADR: .WORD 164000 
74 026370 000004 FKPRIO: .WORD 
343 026372 177562 KBD: -WORD 1775 
3344 026374 177560 KBS: WORD 1775 
3345 026376 177546 LCS: -WORD 177546 
3346 026400 177566 TTB . WORD 77566 
4 026402 177564 TTS -WORD 177564 
3349 000001 END 


CZCMJAO_CMR=11 HOST EXERC 
06-MAR-80 


CZCMJA.P11 
ADDR 0262 
AGAIN 020371 
ALLFLG 02 
ALROFF 7"75 
BAD 16070 
BAUD 0. 
BAUDM 021634 
BCNT2 002626 
BCONT 002534 
BORTBL 025022 
BD1 025042 
BD2 025047 
BD3 025054 
BD4 025062 
BDS 025070 
BD6 025076 
BD7 025104 
BD8& 025122 
BEGIN 002000 
BINPNT 017652 
BOO = 000001 
B01 = 000002 
BO2 = 000004 
B03 = 000010 
B04) == 000020 
B05 = 000040 
B06 = 000100 
BO7 = 000200 
BOB = 000400 
B09 == 001000 
B10 = 002000 
B11 = 004000 
81 = 010000 
B1 = 020000 
B14 = 040000 
B15 = 100000 
CCRIN 01 
CELP 012230 
CHNGFL 026270 
CLK O26e7 
CLKINT Bos3 
CLTBER 02321 
CMRE XC 012166 
CNTR 026274 
CONF L 7? 
CENTLY Bikdee 


SER 
713 


2133 
442 
94 


Nua 
FELASLE 
NH ONOEN 


~— 
onrw 
no 


wa 
ae 


~~ t e s 
SSS= 
UNO 


ZESUS 


MACY1! 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


2135* 
454 


1931 


10=MAR-80 
2136 2138 
460 1502 
33044 
578* 579* 
766* 767 
943 1075* 
1231 1248+ 
2059 2074 
523 2402 
1416 322748 
2051 2159 
1635 1842 
661 724 
1659 1823 
1819 1903 
585 614 
oe 848 
111 1144 
1334 1343 
1853 1932 
1229 2160 
1737* 1759* 
2023" 2035* 
899« * 
1686" 16850 
1987 


2164* 
2146 


1921 


727 


E 6 
14:09 PAGE 62 


729 


2179* 
27854 


2050 


735 


2180 


2108 


802 


1986: 


33034 


1303 


2153 


1612 


1318* 


SEQ 0069 


CZCMJAO CMR=11 HOST EXERC 


CZCMJA.P11 


CSR 


026276 


023344 
022660 


028553 


06-MAR-80 


SER 
213 


561 
956* 


578 


22374 


1587 


1661 


867* 
006* 


1811 


1608 


1825 


869 


20354 


16354 


895* 


1057 


F 6 
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CROSS REFERENCE TABLE == USER SYMBOLS 


897 


1102 


ie 


13468 


902 
1 


775 
1257 


1148 


7468 
1083 
14720 


914% 
1 * 


819 
1273 


1473 


774* 
1101* 
1553 


1554 


878 
1327 


1575 


1596 


SEQ 0070 


935 
1621 


1697 
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2066* 2082* 2307 23384 
015730 


1828 


SS Sys Oo 


625* 626* 627 
809* 811 


1107* 
1263* 
2325 


4648 465* 
1530 133¢ 
24928 493* 
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2017 2028* 33134 
32894 


1936 


6194 
840 


1142 
12744 


1590 
20844 


33154 
1526* 


1769 1772 1920@ 





CZCMJAO CMR=11 HOST EXERC 
06-MAR-80 


CZCMJA.P11 
PORLD 013752 
PORN 026320 
PORT 026322 
PORTLP 010644 
PORTMS 022331 
PORTN 22030 
PORTOM 021652 
PORT 1M 1 
PORT2M 021702 
PORT3M 021716 
PORXT 014014 
PuRO 13634 
013652 
POR1 013726 
PREML 014312 
PREMO 014212 
PREM1 014274 
PRIO 26324 
PRLC 010652 
PRMT1 002174 
PRMT2 002220 
PRMT3 002302 
PRMTG 002356 
PRMTS 402 
PRNREM 014172 
PROMT 002112 
PRTCNF 012566 
PS = 177776 
PSTE 011054 
PSTS 011216 
PSTO 010760 
PST1 011042 
PST2 011070 
PST2A 011076 
PST3 011200 
PST4 011226 
PSTS 011262 
PST6 011276 
PST60 011312 
PST7 011340 
PST7S 011426 
PST8 011440 
PST8S 011526 
PST8O 011540 
PSTB8OS 011626 
PST9 011640 
PST9S 011762 
PO = 000000 
P1 = 000040 
p = 000100 
P = 000140 
PS = 000200 
PS = 40 
pe = 000 
Pp = 000340 


S 


ue 
OONOA- POOR ah 


O00 EWEN 
b 


ee a oe od ws od oJ —_ 4 


so 
WWWUWIS 
OWN 


(2 --4 3 5) 5 3d 2 a PAHAKAP AMP AM 
BME WWW 
SSE OREN RS 


wile ee CTS EL 


VS eesere* 


397 


MACY11 30A(1052) 
CROSS REFERENCE TABLE == USER SYMBOLS 


1768* 
1514 
33194 
1601 


2025 
3320¢ 


444 
449 
2570 
1990 
427 
1774 


— 
wo 
pe 


1586 


404 
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1 
} 


1626 


456 


1995 
2241 


1607 


408 


1929 1965 1979 1984* 1989* 1994* 
1561 1582 1603 1628 1638 1640* 
2005 29714 

462 

20044 


1632 1651 1664 


482 


2007 
1642 


33184 
1644 


SEQ 0073 


1646* 
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2681* 2686 27324 


1877 
2637 2648 2659 2670 
2632 2643 2654 2665 


1802* 1810* 2044 33224 
29738 


2655* 2698 2704" 27314 


32944 


NN 
_—VI 
oo~ 


2054 


eee 
SIESSS3 


2 
Fe 
1 
1 
1 
1 
1 
188 
1 
1 
1 
1 
1 
2 
2 


esccesees 
BLES RRS 


No— 
NTN Ov'! 
aay 


ag 


~S 


Oooo0o0c0c000090 
SS8S33e 


IAS wt at st st st ts ws os os 
Ne es 


83 32954 
610 627* 628 659 661" 


& 
$5 
Sz 
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691 693* 696* 714 719 721* 724* 727* 729* He one 735* 754 


759 761* 765* ite 787 789* 796* 798 800* $: 8 806* 808* 
826 831 833* 835* 3 858 860* 889« 891* 893* 957* 976* 1091* 
1125 1127 1135" = =1164* * 116 1170* 8611728 = 1174" = 1194" = =1210® §=1246* = 1262 
1279* = 1281* = 1289* = 1291" = 1293* = 1295e = 1300" )=—-1316* = 1336" = 1507* §«=91509" 38601511" «= 1513" 
1515* 1519" = =—-1541* = 1609" = 1610* = 1612* = =1613" = 1641* 1643" 1647" 1649"  1848* 18678 
1873* 1922 1924" 1926% 1928* 1937% 1950* 1958* 1960" 1962  2037*  2039* 20418 
2043* = =2045* = 2056* 2072 2090* 2096" 2102* 2154%  2168%  2276%  3326« 
SPAVFE 023447 987 30844 
SPAVIC 024015 1146 31264 
SPAVME 023403 968 30774 
SPDR 026342 597 658* 660* 670 698 726* 728* 738 766 797* 803* 810 837 
890* 892* 894* 958 961* 977 980* 981 1094 1136 1139* 1140 
1165* 11678 1169" 1171 1173" 1175" 1196 1212 1248 1264 1280 1282 1290* 
1292* 1294* 1296 1301 1318 13 1508* 15108 512% 1514" 1516" 15208 1542 
1546 1567 1588 161 1611 16 1642* 1644% 1648* 1650" 1849 1868 1874 
1 1886 1923" 1925* 1927 1929% 1938 1951 1959 1961 2038* 2040" 2042 
2044" 2046* 2058 2074 2091 2097 2103 2155 2169 2174 2176* 2278* 33274 
SPRCLR 022705 616 30174 
SPRDAT 022732 637 30214 
SR 026344 409* 410 551 569 585 614 635 675 681 703 709 743 749 
71 777 815 821 842 848 874 8 931 ? 966 9 1011 
1025 1053 1080 1098 1115 1144 1185 1201 1217 1237 1253 1269 1307 
1323 1343 1426 1430 1469 1550 1556 1571 1577 592 1598 1617 1 
1655 1659 1693 1819 1823 1853 942 2063 79 2085 2231* 2256 2261 
2376 2381 2385* 33284 
SRTST 015450 407 22314 
= 026 10# 2231 
STATEM 022355 2094 75a 
024213 1239 1494 
STESTF 024060 1187 31328 
STO 002714 539" 559 577 593 1435 
$T1 0030 548 5604 566 
$T10 004074 720 Coad 
ST100 004106 Cd 7 
ST101 ©0041 731 7354 
$T110 004172 7378 758 763 
$T110S 74 750 7564 
$1111 740 7594 
ST112 ©0004 760 7644 
ST120 0043 7664 786 790 
$T1 0044 778 7844 
or 0044 788 Ge 830 857 
sT1 oocees 7978 801 
ST131 004540 903 
STI31A 004506 ad 
ST131B 004514 8034 
1 004552 8104 a 


ae 
Soon 
wv. 
ee 


2 
es 
Bis 
33 
xt 
S 
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Ssceesereeses ~ 

“ss aa WN 
St a te) 3 a st st st Ss ot — — SS YS Ss 1 

SRSRESSIILCS 


VPNs saa 
Baeey GUYPERUSS Suasous 
MERSRTEES FELES 


ESS ESES 


& 
~e OLL VES 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


mnNvw 
NNO 
TF at ae 
.* 


zB 
=e 


~— 


a 
= 


Cerys 


SESErES 


o 
~~ 


BeseEey 


722 


CW Re um 


NOO. 
—_ 
oe 
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CZ7CMJA.P11 06-MAR-80 1 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0077 

SWREG 026346 10 33294 

SWRFLG 026350 406* 487 2232* 2246 33304 

SWRMSG 020642 2374 28164 

SYSER 024662 1855 1944 32024 

TALLY 026352 1710* 1730 1739 1760* 1889* 1891 1893* 1894 1967* 1968* 33314 

T 026354 1761* 1764" 1767* 1770* 1920 33324 

TEMP 026356 2285* 2290 2291 33334 

T 026261 1709* 1726 1749x 1751% 1905* 32984 

TPCONT 016460 2442 444a 

TPOFCH 016434 446 

TROUT 016470 2440 24478 

TSTHDR 017770 412 7394 

TSTRSK 002642 517 

TSTSEL 020704 505 28234 

TTB 026400 2712* 33464 

TTO 017700 1367 1838 1839 1840 1841 2019 2022 2027 2143 2166 2186 2398 2444 
2463 2474 2486 2488 2584 2589 2675 2676 2701 27124 2719 2722 

TTOLF 017722 2716 27184 

TTOLP 17704 27134 714 

TTS 026402 2713 3474 

TWOSP 020636 2172 2548 28154 

TYPCR 02 1524 

TYPCTP 020652 2387 28184 ‘ 

TYPOUT 016432 413 416 426 434 443 447 455 461 522 538 685 713 
753 781 825 852 1364 1372 1375 138 1385 1396 1399 1406 1409 
4 1440 1445 1450 1484 1487 1503 152 5 1581 602 1627 1707 
1748 1863 1866 1872 1878 1884 1899 006 20 2095 2101 2131 2147 
$173 $eee 2289 2 2311 2315 2324 2329 2375 2380 24374 82543 

USOFE1 024152 1219 1434 

USOFE2 024244 1255 31544 

USOFE3 024403 1325 31714 

USOFES 024446 1345 31774 

USORM 022367 2100 29778 

VECTOR 026364 435 438 997* 1005* 1038 2279 33404 

VERFLG 026360 53ix 1356 1359* 33344 

RSM 021601 1363 29064 

VERSP 596 1096 32814 

VERSUN 26 1093 1 32854 

VIDER 023746 1117 1194 

VISF 023706 1100 1134 

WDAT 016105 2 19 Rees 

WOSDB 016117 $ on 

WOWAS 016133 8 3524 

WORD 362 657* 658 5« 668* 669 694* 725* 7 733* 736* 737 762* * 
oe 960* 1 355 977* 978* 979« 9 981 1136* 11378 #11388 1139 
1140 1376* 1377 1379* 1380 1386* 1387* 1 * 1389* 13908 13918 13938 139% 
14 1401* 1403" 1404 1410" 14118 14128 14138 1414" 1415% 14178 1418 3335¢ 

WPODI 023605 105 1014 

$0s 015004 1 144 

$1$ gr 200 1 + 195 

$108 15074 139 14 183 

sis BF : i 187 2190 

S2AS 015122 ~ 2196 


CZCMJAO_CMR=11 HOST EXERCISER 
CZCMJA.P11 06-MAR=80 15:13 
$2$ 015106 2137 
$208 015266 2152 
$21$ 015300 2167 
$228 015316 2182 
$23$ 015350 2189 
$24$ 015404 2198 
$25$ 015366 2192 
$3$ 015154 2156 
$4$ 015162 2158 
$5$ 015200 2161 
. = 026404 122 
153 
179 
205 
231 
257 
283 
309 
335 
361 
552 
932 
1218 
1854 
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ss 
ERP 
aSae 


—— 
2 
Re 


2004 


MINMEMNONMNoNoNoNnoryd 


135 137 139 141 143 
161 163 65 167 169 
187 189 191 193 195 

13 215 217 219 221 


6 7 04 
1012 1026 1054 1081 1099 
1308 1324 1344 1470 1551 
26074 = 32504 32744 32754 32764 


1 303 
327 329 331 
353 355 357 
379 yg 


84 5 
1116 1145 1186 
157 1593 1618 
3277# =32814 32854 


SEQ 0078 


Say CMR~11 HOST EXER 


ZCMJA.P11 


DATERR 
10 
ERROR 
194 
HLT 
MTPS 102# 
PNTM 
779 
1523 
2093 
2547 


SCOPE 954 
953 

1275 

ABS. 026404 


ERRORS DETECTED: 
CZCMJA.LST/CRF/SOL/NL : TOC=CZCMJA.P 11 
20 3_SECONDS 


CZ7CMJA.BIN 
RUN-TIME : 


CISER 
06-MAR-80 15:13 
567 583 
1113 1183 
549 964 
1475 1699 
396 481 
411 414 
823 850 
1558 1579 
099 2129 

2554 
2625 2636 
33 2631 
55 575 
972 991 
1313 1329 

000 
0 


RUN-TIME RATIO: 71/34=2.1 


CORE USED: 


(19 PAGES) 


B 7 
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ow 
oa 
N 
Ww 


MONIWEOAM Of 
WONENWY POW 
Co OVW eN® WU 


—— ROR Rom 3 = 
VIOAPAR —-AwWwWEOO sv 
AWWW NRNWE S&S 
W—OWO  —MOnwoe 
—— ROM hNo-—— =f — 
SEF 
ys 
_ 





929 
2077 
1691 


711 
1485 
2004 
2386 


918 
1243 


